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Tandy 1400 LTS 1239 
Tandy 102 24KS379 
Tandy 200 24KS649 



Color Computer 3 
W/128K Ext. Basics 159 




Tandy 1000 HX $539 
Tandy 1000 TX $889 








Color Computer Disk Drive 
Drive $ 249 Drive 1 $ 1 49 




DMP-106 $169 



BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 

Tandy 1000 EX 1 Drive 256K 479.00 

Tandy 1000 SX 1 Drive 384K 649.00 

Tandy 3000 HL 1 Drive 512K 1129.00 
Tandy 4000 1 Drive 1 Meg. Ram1959.00 
Color Computer 2 \M64K Ext. Basic 89.00 

PRINTERS 

Radio Shack DMP-106 80 CPS 169.00 

Radio Shack DMP-130A 120 CPS 279.00 

Radio Shack DMP-430 180 CPS 559.00 
Radio Shack DWP-230DaisyWheel339.00 

Star Micronics NP-10 100 CPS 169.00 

Star Micronics NX-10 120 CPS 199.00 

Star Micronics NX-15 120 CPS 359.00 

Panasonic P-10801 120 CPS 189.00 

Panasonic P-1091i 160 CPS 210.00 

Panasonic P-1092i 240 CPS 349.00 

Okidata 182 120 CPS 269.00 

Okidata 192+ 200 CPS 339.00 

Okidata 292 240 CPS 489.00 
MODEMS 

Radio Shack DCM-6 52.00 

Radio Shack DCM-7 85.00 

Radio Shack DCM-212 179.00 

Practical Peripheral 1200 Baud 149.00 



COLOR COMPUTER MISC. 

Radio Shack Drive Controller 99.00 
Extended Basic Rom Kit 14.95 

64K Ram Upgrade Kit 39.00 

Radio Shack Deluxe Keyboard Kit 24.95 
HI-RES Joystick Interlace 8.95 

Color Computer Deluxe Mouse 44.00 
Multi Pak Interlace 89.00 

Multi Pak Pal Chip lor COCO 3 14.95 
CM-8 6' Extension Cable 19.95 

Serial to Parallel Conv. 59.95 

Radio Shack Deluxe Joystick 26.95 

Magnavox 8515 RGB Monitor 329.00 
Radio Shack CM-8 RGB Monitor 249.00 
Radio Shack VM-4 Green Monilor 99.00 
PBJ 512K COCO 3 Upgrade 99.00 

Tandy 512K COCO 3 Upgrade 129.00 
Mark Data Universal Video Driver 29.95 
COLOR COMPUTER SOFTWARE 

TAPE DISK 
The Wild West (CoCo3) 25.95 

Worlds Ot Flight 34.95 34.95 

Mustang P-51 Flight Simul. 34,95 34.95 
Flight 16 Flight Simul. 34.95 34.95 

Nuke the Love Boat (CoCo3) 34.95 



The Magic ol Zanth (CoCo3) 34.95 

Sam Sleuth Private Eye 24.95 27.95 

Color Max 3 (CoCo3) 59.95 

COCO Util II by Mark Data 39.95 

COCO Max by Colorware 69.95 

COCO Max II by Colorware 

AutoTerm by PXE Computing29.95 

TelePatch III by Spectrum 

C III Graphics by Spectrum (CoCo3)19.95 

Font Bonanza by Spectrum (CoCo3)29.95 

TW-80 by Spectrum (CoCo3) 39.95 

Telewriter 64 49.95 59.95 

Elite Word 80 

Elite Calc 3.0 

CoCo3 512KRamDiskbyCerComp 

OS-9 Level II by Tandy 

Inside OS-9 Level II Book by FHL 

VIP Writer (disk only) 

VIP Integrated Library (disk) 



79.95 
39.95 
29.95 



79.95 
69.95 
19.95 
71,95 
39.95 
69.95 
149.95 



Prices are subject to change without 
notice. Please call lor shipping charges. 
Prices in our retail store may be higher 
Send lor complete catalog. 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 
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P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



TRS-80 is a registered trademark ol Tandy Corp. 
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l,sfc The cassette tape/disk symbols 
^** beside features and columns indi- 
cate that the program listings with those 
articles are on this month's RAINBOW ON 
TAPE and RAINBOW ON DISK. Those with 
only the disk symbol are not available on 
RAINBOW ON tape. For details, check the 

RAINBOW ON TAPE and RAINBOW ON DISK 

ad on Page 188. 




^ A Frightfully Good Time/ Ricky Sutphin 

GAME A Halloween search to chill and thrill 

£~^ Screen Scrolling Made Easy/6/// Bernico 

GRAPHICS UTILITY Make more appealing presentations 

<^ Queens Quarrel/Scof Allen 

GAME Challenge yourself with this hrainteaser 

'.J^ Screen Dump Extraordinaire/H. Allen Curtis 

PRINTER UTILITY A Hi-Res screen dump for the CoCo 3 

■^ PMODE Power/Sec/cy F. Matthews 

GRAPHICS ANIMATION Give pictures the illusion of movement 

(^ Graphics Creation Transfer/Scoff Montgomery 

GRAPHICS UTILITY From tape to disk and hack again 

tsg^ Initially 3-D/Archor Wright 

GRAPHICS Display your initials boldly 
-^ On a Shoestring/H. Allen Curtis 

UTILITY Desktop publishing made easy 

r^ty CoCoDraw Update/ John G. Williams 

MODIFICATION A clever drawing refinement 

^ Yakety-Yak/Sob Roberts 

DEBUGGING UTILITY Help for programmers and typists 

%5& Animation Film Festival/So//a Carrock 

GRAPHICS Make your own CoCo movies 

^ Where We Started From 1 1/ 'Brian LeBlanc 

GENEALOGY Generate the lineage printout 

Simple Solutions/DaWd W. Ostler 

PROGRAMMING TUTORIAL Answers to last month's quiz 

NOVICES NICHE ^ 
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NEXT MONTH: Reach out and touch someone — get online 
— make contact! We make it easy with our November Telecommuni- 
cations issue. There's a whole world out there for you to discover, and 
the rainbow is ready with the answers to your communications 
questions. Look for information services and much more. Plus a wide 
selection of games, utilities, Q-and-A columns, helpful programs, 
hints, tips and lots more all for the CoCo. 

Call on us — the rainbow — for all your Color Computer 1, 2 and 
3 needs! 
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CoCo Party Plan 



Editor: 

While I am grateful lor the continued 
support of frankly frustrated publishers, 
programmers and software vendors in the 
wide world of CoCo, 1 am somewhat dis- 
mayed at the vitriol used against program 
pirates. I feel this subject needs less vitriol 
and more ideas, and I have a few to shell out. 

We all know that software piracy is 
destructive to the CoCo Community and 
discourages promising programmers, but I 
don't feel that the situation is as bad as many 
have led us to believe. After all, true software 
"crackers" are relatively few, and the pirate 
programs of yesteryear don't work on the 
new CoCo 3. Your magazine and others in 
the community should not advertise pirate 
programs as a matter of policy, and the 
professional software manufacturers should 
avoid making them, of course. 

Further, a different marketing strategy 
should be used: there are many companies 
now that use parties and clubs as a medium 
of sales — Tupperware and Avon to name 
a few. Why not CoCo? 1 have quite a grudge 
against Tandy, and the general move in the 
direction of selling programs via Radio 
Shack stores is repugnant to me because 
Tandy personnel don't generally know 
enough about their own wares, much less 
CoCo wares. 1 don't suggest sending out 
programs and hardware willy-nilly to every 
club around, but 1 do suggest full-time 
salesmen using the medium of CoCo clubs 
to sell their wares. Salesmen could even 
support these clubs with regular freeware in 
return for showing off their wares, perhaps 
tying freeware grants to sales through the 
club, offering discounts for si/able sales and 
other aids to boost membership. 

I feel that much software theft is a result 
of attempts to bring people together. The 
theft of software is too widespread simply to 
be the result of a rise in the crime rate of 
users. Powerful psychological factors are at 
work: the need to "belong" to a group and 
to bring something sensational to it 
(newcomers may feel this especially), the 
desire to bring others to your own level, the 
desire to obtain something of proven value 
instead of a pig in a poke, the desire to see 
how something works, the desire to out- 
smart a pro. All these desires are present, 
and many more besides. Direct sales 
through clubs would eliminate several of 
these motives, especially that of buying 
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something strictly on the basis of advertising 
reputation. 

This is not the answer to all our needs, but 
it provides an answer to several problems: 
and similar innovations will do so, too. 
Piracy is currently easy, and that ease is 
something that CoCo enthusiasts will have 
to be weaned from with constant, diligent 
reminders and innovation. 

Thank you for the forum. 

Mike Hranl 
Martinez. CA 

SIGs International 

Editor: 

Since the first computer clubs were estab- 
lished, the number of members has grown 
to several million. There is a need for an 
international organization of computer 
clubs that can help all the clubs, organize 
meetings, publish its own journal and so on. 

The difficulty is that the millions of 
computer users do not form an integral 
whole. At the best, clubs are joined together 
in a partnership in the same country only. 
The reason they can't form connections with 
clubs in foreign countries is rather simple: 
partners are unknown to each other. 

To overcome on this difficulty, NJSZT is 
ready and willing to give a helping hand as 
an agent. 

NJSZT has called into action several 
computer clubs in Hungary. If you're inter- 
ested please send a letter with the following 
information to NJSZT, P.O. Box 240, H- 
1368, Budapest, Hungary. 

Include the club's name, address, tele- 
phone number; leader's name, address, 
telephone number, types of computers used 
by the members in the club; names of 
sections (if any); number of members; 
frequency of the meetings; the goal of the 
meetings; partnerships (if any). 

Also, please tell us what you think is 
required of an international organization. 

M. Havass 

General Secretary 

Budapest. Hungary 



CoCo on Ice in Holland 

Editor: 

Sadly, I have to report that the last CoCos 
seem to have disappeared from Tandy 
outlets here in The Netherlands. The word 



is that the CoCo 3 will not be available here. 
I assume that will also be the case in other 
countries on the 220/240 volt and PAL 
television systems. 

When my trusty old gray CoCo I.I even- 
tually gives up the ghost, will this mean 
farewell CoCo and farewell rainbow? Let's 
hear from CoCo fans in Australia. Western 
Europe and elsewhere. 

Keiran Kenny 
The Hague. Holland 



BACK TALK 



Editor: 

The August issue of rainbow contained 
a letter from a D.J. Leffler under the title 
"Bit-Banger Rebuttal." This letter needs a 
little clarification since it contained a few 
incomplete statements. 

Mr. Leffler says his CoCo's serial port (the 
"bit-banger") can operate at baud rates up 
to 4800 "in duplex." but he failed to mention 
whether it is operating in half or full duplex. 
From the application he mentioned (two 
CoCos in a master-coprocessor configura- 
tion). I believe he meant half duplex since 
full duplex would not be necessary in his 
dedicated application. In any event, very few 
CoCo owners would apply their computer 
in this manner. Most prefer to purchase a 
modem and get online with Delphi or their 
local BBSs. 

It is quite true that CoCos can achieve 
transfer speeds of 9600 bits per second in 
half duplex mode, and many CoCo owners 
routinely operate their printers at 9600 bits 
per second through the serial port. Half 
duplex operation, of course, requires data 
transmission in only one direction at a lime. 

However, in full duplex mode, one must 
be able to send and receive data at the same 
lime. While full duplex operation through 
the serial port may appear to be successful, 
a continuous incoming stream of data will 
cause the terminal software to drop either 
incoming or outgoing characters, or possi- 
bly both. Additionally, some "garbling" will 
appear from time to time as the terminal 
software attempts to maintain synchroniza- 
tion with both the incoming and outgoing 
bit streams. This situation is unavoidable, 
even if one takes unusual care in the design 
of the time delay loops. 

Conversely, full duplex operation at 1200 




AUTOTERM 

TURNS YOUR COLOR COMPUTER INTO THE 

WORLDS ** 

SMARTEST TERMINAL! 

YOU'LL ALSO USE AUTOTERM FOR SIMPLE 
WORD PROCESSING & RECORD KEEPING 



NOW HI-RES 



EASY COMMUNICATION + WORD PROCESSING + TOTAL AUTOMATION 



Full prompting and error checking. 
Step-by-step manual has examples. 
Scroll text backward and forward. No 
split words on screen or printout. 
Save, load, delete files while on line. 
Print, save all or any part of text. 
XMODEM for machine language 
files. 128 ASCII characters, 1200 
baud, etc. Works with D.C. Hayes or 
any modem. Handles files larger 
than memory. Print on line with J&M 
or RS232 Pak. Screen widths of 32, 
40, 42, 51. 64. 



Please hire the mentally retarded. 

They are sincere, hard working and 

appreciative. Thanks! _. ... 

Phyllis. 



Editing is super simple with the 
cursor. Find strings instantly too! 
Insert printer control codes. Specify 
page size and margins. Switch 
quickly between word processing 
and intelligent terminal action. Create 
text, correct your typing errors; then 
connect to the other computer, 
upload your text or files, download 
information, file it, and sign-off; then 
edit the receive data, print it in an 
attractive format, and/or save it on 
file. Compatible with TELEWRITER. 

CASSETTE $29.95 
DISKETTE S39.95 

Add $3 shipping and handling 
MC/VISA/C.O.D. 



Advanced system of keystroke 
macros lets you automate any 
activity, such as dial via modem, 
sign-on, interact, sign-off, print, save. 
Perform entire session. Act as 
message taker. At start-up, disk 
version can automatically set 
parameters, dial, sign-on. interact, 
read/write disk, sign-off, etc. Timed 
execution lets AUTOTERM work 
while you sleep or play. No other 
computer can match your COCO's 
intelligence as a terminal. 

PXE Computing 

11 Vicksburg Lane 
Richardson, Texas 75080 

214/699-7273 



bits per second is quite possible through the 
CoCo 3's bit-banger port. The popular 
terminal programs Rickeyierm and GeTerm 
support such operations quite well. This is 
primarily due to hardware differences incor- 
porated in the design of the CoCo 3. 

On the CoCo 3. the programmable inter- 
rupt timer can be used to provide a stable 
time base from which the terminal software 
may sample the incoming bit stream and 
send the outgoing bit stream very reliably. 
This allows for the creation of a software 
U ART. and unlike the situation in the CoCo 
l and 2, it allows more precise liming. Since 
it's a hardware device, fewer actual inter- 
rupts occur, which means a noticeably larger 
amount of processor time is available. In 
actual practice, baud rates higher than 2400 
are still rather hard to do using the bit- 
banger on the CoCo 3 in full duplex mode. 
Both GeTerm and Rickeyierm will function 
at 2400 bits per second in full duplex mode. 

So, you see, even if using a well-designed 
modem and appropriate terminal software, 
the integrity of data communications may be 
jeopardized because of the unreliability of 
the CoCo's PIA-driven serial port. A 
hardware-based serial port, such as the 
Deluxe RS-232 Program Pak, is the way to 
go. 

Don Hutchison 
Atlanta, GA 

Obsoletion Scare 

Editor: 
I am very angry that you have switched 



most of your programs so that they only 
work on the new CoCo 3! I, who have had 
the original CoCo for several years, am not 
happy that half of your programs can't be 
run on my computer! I am sure I am not 
alone. Reading the August 1987 issue of 
rainbow, I was disappointed when I saw 
that the game Danger Zone was only for the 
CoCo 3. I would like to know the reason for 
this switch. 

Jason Max 
Phoenix. AZ 

The August 1987 issue presented 17 
programs for the CoCo I and 2 and 
four for the CoCo 3. We will continue 
to support the CoCo I and 2 users. 
However, we must also support the 
newer CoCo 3! Yes. some programs 
will only run on the CoCo 3. hut that 
is because the enhancements in the 
machine allow such programs to be 
written. The earlier CoCos can't run 
these programs because they don't 
have these enhancements. 



HINTS AND TIPS 



Editor: 

I'd like to share a simple little program for 
making a blue and red checkerboard design 
on your computer. If you change the SCREEN 
value in Line 3 to SCREEN 1,0. you'll get 
green and blue on a green background. If 



you change the step rate at the end of Line 
3, you'll see many different patterns emerge. 
Enjoy! 

1 PN0DE4,1:PCLS1 

2 5CREEN1,1:COLOR0,1 

3 FOR Z=0 tD 24? STEP 1.93 

4 LINE (Z,0)-(Z+9,191), PSET 

5 NEXT Z:EXEC44539:G0T0 1 

Bill Bernico 
Sheboygan. Wl 

CoCo in the Key of 3 

Editor: 

In using Joseph Piatt's program Mu- 
sic+TR from June 1987, I discovered a way 
to combine several keys of music into the 
same song. 

You must place the first half of the song 
in the desired key on disk, then copy the 
second half to begin at the end address of 
Part One, plus one. Transpose Part Two then 
load Part One back from the disk. Part One 
will load over Part Two, zeroing only the 
first two notes of Part Two. By replacing 
these you will have a key change within the 
same song. 

Jim Hillhouse 
Live Oak. FL 

The BASIC Solution 

Editor: 

I have read that in order to benefit from 
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the 80 columns available on the CoCo 3 you 
musi use the RGB monitor. 

While it's true that a color composite 
monitor is less than ideal for the 80-column 
format, such is not the case with a mono- 
chrome. While awaiting the availability of 
the CoCo 3, I dug out my Amdek 300 green 
screen, which had been packed away since 
I got a new color monitor. Every night I had 
visions of a nice 80-column display on that 
lovely green screen. When the big day came 
I was very disappointed at the first results. 

On power-up, the default values give you 
black characters on a green background in 
all three text formats. A monochrome 
monitor displaying this combination 
produces undesirable vertical bars in 32- and 
40-column format and makes 80 columns 
unreadable. However, as in most cases with 
the CoCo, problems are usually greatly out- 
numbered by solutions. On the CoCo 3, the 
solutions are built into basic. Within 10 
minutes of that first disappointment. I had 
found my favorite combination of bright 
letters on a black background using 
PALETTE 2,0 and RTTR 3,2. I feel this 
combination on a green screen monitor is 
unbeatable. On my black-and-white moni- 
tor 1 prefer dark characters on a light 
background. Using flTTR 6,-4, this, too, is 
a snap. Both the 1 3-inch green and the 9-inch 
black-and-white display beautifully sharp 
and crisp characters in 80 columns. 

Mikey Kaylor 
Cleveland. TN 



REQUEST HOTLINE 

Editor: 

I am interested in finding a genealogy 

program for the CoCo 2. If you have or 

know of any program available please write. 

Myke Mortensen 

4734 East 17 Street 

Tucson. A Z 85711 

Big Blue CoCo? 

Editor: 

I would like to ask all of the hardware 
buffs out there if they have plans for either 
of the following. I would like to see an 
accelerator card for the CoCo 3. How about 
a card to let theCoCo3 be IBM-compatible? 
We've got all the right specs (memory, 
graphics, drive format, etc.). The market 
would be immense for such products. 

Eric A. Wolf 
South Bend. IN 



INFORMATION PLEASE 

Editor: 

I own a Model 101 Metric Industries 
Interface for my printer, a Legend 880. I 
bought the interface on sale from a private 
owner. The owner said no instructions for 
the interface came in the box when he 



bought it. If someone has instructions for 
the Model 101. I would appreciate it. 

Concerning my Legend 880 printer, I 
would like to find anyone who has one and 
can share their experience with it. I am 
trying to find compatible graphics and word 
processing software for it. 

John C. Oaken 

113 South A Una 

Roanoke. I L 61561 



Picture This 

Editor: 

I wrote a program displaying a picture on 
the CoCo 3's 320-by-l92 graphics screen. I 
would like to save it to MGE format so it 
can be loaded into Color Max 3. 

Randy Lyman 

2560 East Adobe 

Mesa. A 2 85203 



KUDOS 

Editor: 

Determined to learn how to access the 
CoCo 3's extra memory using assembly 
language, and after beating my brains out, 
making call after call and poring over the 
CoCo 3 articles in the RAINBOW. 1 finally 
called rainbow and talked to Cray Augs- 
burg. He suggested 1 purchase a CoCo 3 
service manual, because sometimes it ex- 
plains technical information not supported 
elsewhere. I ordered one from my local 
Radio Shack for SI5. and Cray was correct. 
This manual contains all the information 
needed to access the extra memory. As an 
added bonus it even tells how to access the 
PALETTE from assembly language. At SI5 
this is a very worthwhile investment. Thanks 
a lot to Cray Augsburg: my hat is off to you. 
Arron W. Branigan 
Jacksonville. A R 



A KDSK Fan 

Editor: 

I recently downloaded KDSK by Ken 
Wuelzcr after reading Richard White's 
enthusiastic review in the April 1987 issue. 
1 totally agree with Mr. White that this is one 
of the best programs written for the CoCo. 
I rate it up there with my favorite program, 
ADOS, by Art Flexser. Art really outdid 
himself on this one. He has succeeded in 
taming the unruly CoCo 3 with his modified 
RSDOS program. For those users like 
myself who use a monochrome monitor, 
now you can boot up the CoCo 3 with a good 
monochrome picture without having to type 
in commands to make the display readable. 
Plus, there are numerous other "custom- 
ized" subroutines you can create to make 
your CoCo easier to use by using single 
keystroke entries. 

R.C. Buescher 
Madison. Wl 



Telecommunication Inflation 

Editor: 

The Federal Communications Commission 
(FCC) has announced a proposal that calls 
for assessing additional connect charges of 
about $5 hourly for computer telecommu- 
nications services going through packet 
switching, value-added services such as 
Telenet and Tymnet, starting January I. 
1988. This will add at least $5 an hour cost 
to any service connected to packet switches 
such as CompuServe, Bix. Source, Delphi. 
Genie and People-Link, and will add an 
hourly charge to such services as the pending 
Tymnet's PC Express and Telenet's PC 
Pursuit (which charges $25 a month for non- 
prime time use of Telenet reaching local 
systems in the 25 largest cities in the U.S.). 

Of course this will kill off such efforts by 
Tymnet and Telenet to offer mass-consumer, 
inter-city telecommunications at low rates, 
and will probably just about kill off individ- 
ual subscribers (rather than corporations 
and government agencies) to national servi- 
ces like CompuServe, Source, Genie and 
BIX. It will also ensure that no public 
educational institution will gel into these 
type services. The minimum non-prime time 
rates for any national service will exceed $10 
an hour, and daytime rates will be above $25 
an hour. 

The new chairman of the FCC is Dennis 
Patrick. The other commissioners are James 
Quello. Mimi Dawson and Patricia Diaz 
Dennis (there is still an unfilled seat vacated 
by chairman emeritus Mark Fowler). 

The FCC is accepting comments on the 
ruling. You can write to: Office of Opinion 
and Review. The Secretary. 1919 M Street, 
N.W.. Room 222. Washington, D.C. 20554. 
Refer to "Interstate Access Charges Exemp- 
tion for Enhanced Service Providers CC 
Docket 87-208." 

Copies of this document are available by 
calling the FCC at (202) 632-7000. who will 
refer you to a transcript company called ITS 
at (202) 857-3800. 

John Gordon Reid 
Woodside. NY 



In Response to Recurrent Inquiries . . . 

While group purchases of rainbow on 
tape and rainbow on disk are permitted, 
no license to make copies is conveyed or 
implied. Yes, your group may even purchase 
a subscription to our disk/ tape services, but 
such purchase in no way authorizes that any 
copies be made of that original disk/tape. 

Specifically, this means that the original 
disk/ tape itself may indeed be kept in a club 
library for use by members. However, a 
group purchase does not entitle club 
members, individually or as a group, to copy 
that disk/ tape. 

Unauthorized copying of any copyright 
product is strictly illegal. The copyright 
(right to make copies) is in no way conveyed 
in the purchase transaction. 
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BOOKS & GRAPHICS 



500 

POKES, 

PEEKS, 

EXECs 

FOR THE TRS-80 COCO 




* 

* 



NEVER BEFORE has this infor- 
mation of vital significance to a 
programmer been so readily 
available to everyone. This book 
will help you GET UNDERMEATH 
THE COVER' of the Color Com- 
puter and develop your own MI- 
QUALITY Basic and ML pro- 
grams. SO WHY WAIT?? 
This 80-page book includes 
POKEs, PEEKs and EXECs to: 
Autostart your basic programs 
Disable Color Basic/ECB/Dlsk 
Basic commands like LIST. 
LLIST. POKE. EXEC, C5AVE(M). 
DEL. EDIT, TROM, TROFF, 
PCLEAR, DLOAD. RENUM, PRINT 
USINQ, DIR, KILL, SAVE, LOAD. 
MERGE. RENAME. DSKlril. 
BACKUP, DSKIS, and DSKOS. 

* Disable BREAK KEY. CLEAR KEY 
and RESET BUTTON. 

* Generate a Repeat-key. 

* Transfer ROMPAKS to tape (For 
64K only). 

* Speed Up your programs. 

* Reset, MOTOR ON/OFF from 
keyboard. 

* Recover Basic programs lost by 
NEW. 

* Set 23 different 
GRAPHIC/SL.HQRAPrllC modes 

+ Merge two Basic programs. 

* AND MUCH MUCH MOREJII 

COMMANDS COMPATIBLE WITH 
16K/32K/64K/C0LOR BASIC/ ECB/ DISK 
BASIC SYSTEMS and CoCo I. 2. & 3. 

ONLY $16.95 



ONLY. 



SUPPLEMENT to 

500 POKES, 
PEEKS N EXECS 

$9.95 

L U U additional Pokes, Peeks ' n Execs to 
give you MORE PROGRAMMING POWER 
Includes commands for 

• Rompak Transfer to disk 

• PAINT with 65000 styles! 

• Use ol 40 Hack single/ double sided drives with variable 
step- rates 

• High-Speed Cassetle Operation 

• Telewriter 64 '. Edtasm+' and CoCo Max' 
Enhancements 

• Graphics Dump (lor DM P printers) & Text Screen Dump 

• AND MUCH MUCH MORE! 

• 500 POKES. PEEKS N EXECS is a prerequisite 



^300 POKES 
PEEKS N EXECS 

FOR THE COCO III 

Get more POWER for your CoCo III. Includes 
commands lor 

• 40/80 Column Screen Text Oump 

• Save Text/Graphics Screens to Disk 

• Command/ Function Disables 

• Enhancements lor CoCo 3 Basic 

• I28K/5I2K Ram Test Program 

• HPRINT Character Modilier 

• AND MANY MORE COMMANDS ONLY $1 9.95 




"MUST" BOOKS 

UNRAVELLED SERIES: These books provide a 
complete annotated listing of the 
BASIC/ECB and DISK ROMs. 

EXTENDE0 COLOR BASIC UNRAVELLED: S39.95 

DISK BASIC UNRAVELLED: S19.95 

BOTH UNRAVELLED BOOKS: S49.95 

SUPER ECB|CoCo3| UNRAVELLED: S24.95 

ALL 3 UNRAVELLED BOOKS: S59.95 

C0CD3 SERVICE MANUALS39.95 

INSIDE 0S9 LEVEL II S39.95 

RAINBOW GUIDE TO 0S9 LEVEL II ON COCO 3: SI9.95 

BASIC PROGRAMMING TRICKS S14.95 

COCO 3 SECRETS REVEALED: S19.95 

ASSEMRLY LANGUAGE PROGRAMMING": SIB.00 

ADDENDUM FOR COCO 3: SI2.00 
UTILITY ROUTINES VOL I BOOK SI9.95 



% 



Mjr 




MICROCOM SOFTWARE 

P.O. Box214 
Fairport. N.Y. 14450 
Phone(716) 223-1477 

VISA MC. AMEX, Check MO. Please 
countriesS5.00 S&H. COD (US only) 
add sales tax Computerized processing 
Dealer inquiries invited. 



*(► 




COLOR MAX 3 

Finally, your wait is over!! The ultimate 
graphics program for CoCo 3 has arrived. 
Features include: 

• Icons and pull down menus 

• 320 x 200 hi- res screen 

• Choice ol 64 colors 

• Pencil Eraser. Spray Can Line. Rectangle. Paint Brush & 
more lunctions 

• Electronic Typesetting with 1 1 built-in lonts 

• Zoom-in ( Fat Bits) and Undo 

• Variety ol brushes and patterns 

• Editing features such as invert Hip. copy, cut paste and 
clear 

• toad/ Save/ Compress/ Print your work 

• Works with RGB & Composite Monitors 

• Printer Drivers- EPSON. GEMINI. 0MP& CGP-220 

• Requires RS Hires joystick interlace 

Requires CoCo 3. 128K, Tandy Disk Controller, 
Hh Res Joystick Interlace 

onlyS59.95 
HI-RES JOYSTICK INTERFACE: S11.99 



PIX CONVERTER 1: S29.95 




The CoCo Graphics Designer allows you 
to create beautifully designed Greeting 
Cards, Signs and Banners for holidays, 
birthdays parties anniversaries and other 
occasions Comes with a library of pre- 
drawn pictures Also includes utilities 
which allow you to create your own 
character sets, borders and graphic 
pictures. Requires a TRS-80 COLOR 
COMPUTER I, II OR III ORTDP-100 with 
a MINIMUM 0F32K, ONE DISK DRIVE 
and a PRINTER compatible with DISK 
BASIC 1.0/1.1, ADOS 1.0/1.1 AND JDOS. 
Supports the following printers: C-ltoh 
851 0ARDMP1 00/1 05/11 0/1 30/430CGP- 
220, some OKIDATA Printers SEIKOSHA 
GP 100/250, LEGEND 808 and GORILLA 

BANANA D | SK ONLY $29.95 

PICTURE DISK #1: 100 more pictures for 
CGD: SI 4.95 

FONT DISK #1: 10 extra fonts! SI 9.95 
COLORED PAPER PACKS S19.95 



addS3.00 S&H(USA& Canada), other 
add $2.50 extra NYS residents please 
& tracking of orders Immediate shipment 



Call Toll Free (For Orders) 1-800-654-5244 9 am- 9 pm Monday- Saturday 

Except NY Order Status. Information Technical Information, NY Orders call 1 -71 6-223-1 477 




Pen Pals 



• I am 40 years old and am seeking pen pals 
who are licensed radio amateurs and short- 
wave listener hobbyists. I have a CoCo 2 and 
3, an FD-500 SSDD drive, and a Legend 
880-DMP. 

John C. Onken 

I 13 South Celina Street 

Roanoke. IL 61561 

• I am 10 years old and searching lor pen 
pals around my age. I have a CoCo 2, a 
CoCo 3, disk drives and a printer. 

Jeremy Radachowsky 

P.O. Box 60 

Bantam. CT 06750 

• I am looking lor pen pals seriously inter- 
ested in basic programming. I have a CoCo 
3. disk drive, printers and a Speech/ Sound 
Pak. 

Jim Cannon 
526 Industry Road 
A l water. Oil 442111 

• I am interested in having a pen pal any- 
where in the United States. I am 1 2 years old 
and have a 64 K CoCo 2. multi-pack, disk 
drive, DMP-105 printer and a cassette 
recorder. 

Mike O'Neal 

437 Main Street 

P.O. Box 233 

West Townsend, MA 01474 

• I'm 61 years old and retired. I have plenty 
of time to trade ideas. So, lake a chance, and 
drop me a line. We could be friends for many 
years. 

John Jenkins 

7333 West 112th Place 

Worth. IL 60482 

• I am looking for pen pals in northern New 
York and eastern Vermont. I am 13 and have 
had my CoCo for four years. I also have a 
disk drive, CCR-81 cassette deck and a 
DMP-130 printer. I would especially like to 
correspond with any dungeons and dragons 
players. 

David M. Endersbee 

33 Scenic Pi. Drive 

Jay. NY 12941 

• I have three 64 K CoCo 2s, six disk drives, 
cassettes, multi-pack, SG-10 printer, CGP- 
1 15 printer and a CGP-220 printer. I have 

just started a new club in my area and any 
advice will be appreciated. 1 will answer all 
who write. 

Bobby Roger Queen 

1737 Farmville Road 

Shelby. NC 28 1 50 

• I have just moved to San Antonio, and I 
feel very much alone. I would like to get in 
touch with the CoCo Community of San 
Antonio. I have a CoCo 3 with two disk 
drives, a DMP-105 and a modem. I am an 
avid OS-9 hobbyist, too. 

Todd l.arsen 

7371 Estrid Trail 

Sun Antonio. TX 78244 
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• I am looking for a pen pal who enjoys 
Adventures and music programs. I have a 
CoCo 2, joysticks, mouse, disk drive, 
cassette recorder and I'm going to purchase 
a printer soon. I am a 16-ycar-old male. 

Curtis Schaaf 

RR 1. Box 186 

Moro. IL 62067 

• I have a CoCo I with two drives, cassette 
and a DMP-100 printer. The CoCo has 
I28K. but operates as a 64 K machine. My 
interests are games. Adventures and utilities. 

Richard Dun 

7337 Brook view Circle 

Tampa. FL 33614 

• I am 12 years old and have a CoCo 2, 
DMP-105, modem and disk drive. 

Eric Mathurin 

1129 Soderlind 

Ottawa. Ontario 

Canada K2C3BI 

• I'm 28 years old and proud owner of two 
CoCo 2s. If there are any other "old fogies" 
out there (if you aren't 14 and brilliant, you 
can't really understand computers) who'd 
like to correspond with a increly-adequale- 
but-obsessive programmer, please write. 

David B. Smith 
4112 Trinity Road 
Duluth. MN 55811 

• I have a 64 K CoCo 2, one FD-501 drive, 
a CCR-81 recorder, a DMP-105 printer and 
a DCM-3 modem. I would love to hear from 
anyone to talk about the glorious CoCo. 

Andy Engle 

2303 Highland Hill 

St. Peters. MO 63376 

• I would like only pen pals who are Doctor 
Who fans. All letters will be answered. 

Chris Curtis 

Route I. Box 186 

Walling. TN 38587 

• I am a publisher of a fledgling newsletter 
for world-wide pen pal hobbyists. I do most 
of the writing myself, but there is a lot of 
reader participation. My "printing press" is 
none other than a 64 K CoCo 2, a DMP-105 
and Color Scripsil. 

The best way to enjoy La Pluma is to read 
it, write to people who list themselves for pen 
pals and even list yourself. Have fun discuss- 
ing computers, or anything else that you 
like. Anyone wishing to join La Pluma Press 
should write to me at P.O. Box 77, Crom- 
poncl. NY 10517. People of all ages from any 
place are welcome. 

Jacqueline D. Gannuscio 
Editor/ Publisher LLP 

• I am 14 years old and looking for a pen 
pal who lives anywhere in the world. I own 
a CoCo 2. CoCo 3. FD-501 disk drive. 
DMP-130 and CCR-81 cassette. I love 
games and have just started working with 
OS-9 Level II. 

Jason Ebbeling 

Gulf Road 

Berkshire. MA 01224 



• I'm 10 years old and have a 64 K CoCo 2, 
disk drive, cassette recorder and a DMP-105 
printer. I'm a game nut I like all games, 
especially arcade. I'm looking for Canadian 
pen pals of any age. 

Jason Nielsen 

1535 Winslow Drive 

Sooke. British Columbia 

Canada V0S I NO 

• I am 15 years old and own a CoCo 2 and 
3. a CGP-220 printer and a CCR-8 1 cassette. 
1 will soon own a disk drive and a CM-8 
monitor. 

1 enjoy using my CoCo, drawing and 
reading, and would like to have a pen pal 
between 14 and 16 years of age. I would like 
someone with a creative mind who likes to 
write Adventure games. 

Dana E. Sonnie 

21 Chapel Street 

Yalesville. CT 06492 

• I'm 23 and looking for someone who likes 
to write their own programs and graphs. 1 
have a CoCo, disk drive, cassette player, and 
a modem. 

Marvann Exum 

2987 S. Clara 

Fresno. CA 93706 

• I am 1 7 years old and looking for pen pals. 
My present system consists of a 64K CoCo 
2, DMP-130 printer and cassette recorder. 
1 will return all letters sent to me. 

Eddie Mendonca 

3000 Merlan Way 

Hartford, CA 93230 

• I am IO'/j years old and have a CoCo 2 

and some joysticks. Anyone wanting a pen 

pal, please write to me. . . n 

' ' Armando Perea 

824 N. Humholt H4 

San Mateo. CA 94401 

• I am 1 7 years old and have a 64 K with two 
disk drives and a multipack interface with 
many accessories. I would like to have a pen 
pal who is interested in exchanging ideas. 

Marc Steinman 

620 28th Ave. So. 

Grand Forks. ND 58201 

• I am 14 years old and am looking for a 
girl pen pal who lives on the Fast Coast and 
has a CoCo 2 or 3. I have everything you 
can attach to the CoCo. and then some. I 
also have a very good sense of humor. 

Erie Humphreys 

327 Snowden Lane 

Princeton. N.I 08540 

THE rainbow welcomes letters to the 
editor. Mail should be addressed to: Letters 
to Rainbow, The Falsoft Building, P.O. Box 
385, Prospect, KY 40059. Letters should 
include the writer's full name and address. 
Letters may be edited for purposes of clarity 
or lo conserve space. 

Letters to the editor may also be sent to 
us through our Delphi CoCo SIC. From the 
CoCo SIG> prompt, type RhI lo take you 
into the Rainbow Magazine Services area of 
the SIC. At the RAINBOW> prompt, type 
LET to reach the LETTERS> prompt and 
then select Letters for Publication. Be sure 
lo include your complete name and address. 



UTILITIES 



SUPER TAPE/DISK 




TRANSFER 



• Disk- to- Disk Copy (1-3 passes) 

• Tape-to-Disk Copy 

• Tape-to-Disk Automatic Relocate 

• Disk-to- Tape Copy 

• Tape- to- Tape Copy 

Copies Basic/ M L programs and DATA files. 

CoCo1,2&3 32 K Disk System 

(Disk to Disk Copy requires 64 K) 

DISK ONLY $24.95 

COCO DISK ZAPPER 

Are you frustrated with crashed disks? II 
so. this program can save hours of labor by 
restoring complete or part of the information 
from the disk. If s indespensable' 
Requires minimum 32K/64 K disk system 
unlyS24.95 

DISK TUTORIAL 

(2- Disk Package) 








An indispensable tutorial for serious disk 
Basic/ ML programmers Gives almost 
everything you MUST know about the disk 
system CoCo 1 , 2 & 3 

only$36.95 
UTILITY BONANZA I 

Includes 20 best-selected utilities: 

• 40K Disk Basic • Disk Calaloger 

• Super Tape- lo- Disk Copy (with Automatic Helocatel 

• LList Enhancer • X-flef for Basic Programs 

• Graphics Typesetter (two text sizes!] 

• LARGE DMP Graphics Dump • Basic Stepper 

• Hidden 32 K (Use the "hidden" 32K from your 64 K CoCo) 

• RAM Disk (lor Cassettes Disk Users) 

• Single Key Printer Text Screen Dump 

• And much, much more!!! 

Most programs compatible with CoCo 3 

DISK (64K Reg) ONLY $29.95 

SUPER PACKAGE 

The indespensible utility package 
comprising: SUPER TAPE/DISK 
TRANSFER COCO DISK ZAPPER, DISK 
TUTORIAL and UTILITY BONANZA 
REGULAR S1 16.80 
YOU PAY S79.95( Save S36.85) 



word processors ALL SOFTWARE COMPATIBLE 



TeleWriter-64: Best Word Processor For 

CoCo 1, 2 & 3. (Cas) S47.95 

(Disk) S57.95 

TW-80: 80 Column Displays morefeatures 

forTW-64. CoCo 3 Disk S39.95 

TELEPATCH III: TW-64 Enhancements- 

Overstrike, Spool, Fast I/O, moreS29.95 

TELEFORM: Mail Merge& Form Letters for 

TW-64. SI 9.95 

COLOR SCRIBE 3: Best Line Editor for CoCo 

3. S49.95 

DATABASE 

Pro Color File * Enhanced* 2.0: Multi-feature 

Database. S59.95 

COMMUNICATIONS 

Autoterm: Superb Terminal Program Works 

with any modem! (Cas) S29.95 

(Disk) S39.95 

RTerm2.0: CoCo3 Terminal Prog Supports 

40/80 columns & more Disk S39.95 

Wiz: For OS9 II. 300-19200 baud rate 

windows! Req512K& RS232 Pak 

S79.95 

(See our Communications Extravaganza 

on Page 15!) 

ASSEMBLERS/COMPILERS 

EDT/ASM 64 D: Best Disk Based Editor- 
Assembler for CoCo. S59.95 (Specify CoCo 
1,2 or 3) 

THE SOURCE: Best Disassembler for CoCo. 
S34.95 (Specify CoCo 1,2 or 3) 
CBASIC: Most powerful Basic Program 
Compiler. SI 49.95 (Specify CoCo 1,2or3) 

TUTORIALS 

MACHINE GENESIS: Excellent Assembly 
Language Tutor. Includes Editor 
Assembler/debugger/ Disassembler and 
other utilities Disk S34.95 

COPY PROTECTION 

DISK ANTI-PIRATE: Best copy- protection 
program for disk Basic and ML programs. 
ONLYS59.95. 

HIDE-A- BASIC 1.1: Best ccpy- protection 
program for Cassette Basic programs. 
ONLVS24.95. 

(Both Disk Anti- Pirate & Hide- A- Basic 1.1 
for ONLY $79.95) 



WITH COCO 1,2 & 3 



OTHER SOFTWARE 

AD0S3: Advanced Disk Operating System 

for CoCo3. S34.95. ADOS: S27.95 

COCO UTIL II: (Latest Version): Transfer 

CoCo Disk files to IBM compatible 

computer. Transfer MS-DOS files to CoCo 

S36.95 

SPIT'N IMAGE: Makes a BACKUP of ANY 

disk S32.95 

GRAFPLOT: Generate graphs from data or 

spreadsheets Fully automatic with print 

functioa Disk S44.95 

FKEYS III: Function Keys for CoCo 3. 

$24.95 

COCO 3 FONT BONANZA S29.95 

RGB PATCH: Displays most games in color 

on RGB monitors For CoCo 3 Disk 

S24.95 

CoCo Max (Cas) S67.95 

CoCo Max II (Disk) S77.95 

RUN COCO MAX II ON COCO III: The kit 

contains softwares replacement PAL chip 

for 26-3024 Multipak Interface S29.95 

GAMES 

(DISK ONLY) 

IRON FOREST: $28.95 

LIGHT PHASER 

W/INTERFACE: $34.95 
MISSION! RUSH'N 

ASSAULT: $28.95 
GRANDPRIX 

CHALLENGE: $28.95 
GANTELET II: $28.95 
GANTELET: $28.95 
MISSION F-16 

ASSAULT: $28.95 
MARBLE MAZE: $28.95 
PAPER ROUTE: $28.95 
KNOCK OUT: $28.95 
KARATE: $28.95 
WRESTLE MANIAC: $28.95 
BOUNCING BOULDERS: $28.95 
THE GATES OF DELIRIUM: $38.95 
CALADURIAL FLAME OF LIGHT: $38.95 
LANSFORD MANSION: $38.95 
P-51 MUSTANG SIMULATION: $34.95 
WORLDS OF FLIGHT: $34.95 
PYRAMIX: Cubix $24.95 for CoCo 3 y 





JUF 



MICROCOM SOFTWARE 

P.O. Box 214 
Fairport, N.Y. 14450 
Phone(716) 223-1477 



All ordersS50 & above(except CODsl shipped by UPS2nd Day Air at no extra charge. Last minute shoppers 
can benefit VISA MC, AMEX Check. MO. Please addS3.00 S&HIUSA& Canada), other countries 
S5 00 S&H COD (US only) add S2.50 extra NYS residents please add sales tax 
Computerized processing & tracking ol orders. Immediate shipment Dealer inquiries invited 



Call Toll Free (For Orders) 1-800-654-5244 9 am- 9 pm Monday- Saturday 

Except NY. Order Status. Information, Technical Information NY Orders call 1-71 6-223-1 477 



1 Printft - 2, 



We're Doing OK 



Probably the most common letter I get these days is from those 
readers who ask why THE RAINBOW has decreased its number 
of pages in the past year. I think it is a fair question, and one 
that needs to be answered. 

The way we determine the number of pages that appear in the 
magazine is simply by the number of advertisements we have. We 
establish a ratio of advertising to editorial copy and try as much as 
we can to adhere to that. So, when the number of ads goes down 
- as it has been doing lately — then the number of total pages in 
the magazine goes down, too. 

Of course, the inverse is also true. You will notice that this month's 
issue is larger, in terms of pages, than last month's issue. The reason 
is that we have more ads. By the way, pages are usually added in 
increments of 16, although we would like to be able to add 32 at 
a time. Why? Because the 32-page package is the most economical 
to run on a printing press. 

Despite the fact that our editorial (and advertising) pages have 
been down in the last year or so, THE RAINBOW continues to be in 
good financial health. We have a wealth of subscribers, a good, stable 
advertising base, and we work hard to keep our costs down. This 
translates into sure knowledge that we will be a part of the CoCo 
Community for a long time to come. 

I get most distressed when I see letters from readers who try to 
draw comparisons between some of the defunct Color Computer 
magazines in their last months of life and a decrease in the pages 
of THE RAINBOW. There are vast differences between the two 
situations. The main one is we have a strong subscriber base and 
sell well in the bookstores we allow to carry THE RAINBOW. Those 
late and lamented publications never had a strong subscriber base 
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INSTANT SOFTWARE" 

Pay only for what you want! 
Quality Utility Software at Unbelievable Prices! 






40K For Cassette Programs: 1100 
40K For Disk Basic Programs: tlOl 
ALPHA-DIR: Alphabetize your DIfis. 1102 
APPOINTMENT CALENDAR: 1103 
AUTOMATIC DISK BACKUP: Rea. 2 drives! 1104 
AUTOMATIC 5 Min . CASSETTE SAUE: #105 
AUTOMATIC 5 Min . DISK SAUE: 1106 
AUTO DIR BACKUP: No aore FS Errors! #107 
BANNER MAKER: V High Letters! 11108 
BASIC PRDGRAM AUTORUN FROM TAPE: 1109 
BASIC SEARCH: Search for a string. 1110 
BORDER MAKER: 255 Border Styles! 1111 
BOWLING SCORE KEEPER: 1112 
CALENDAR MAKER: For DMP Printers. 1113 
CASSETTE LABEL MAKER: DMP's Only. 1114 
CLOCK: Keeps tiie as you progran.1115 
COMMAND KEYS: Short Hand For Basic. 1116 
COMMAND MAKER: Design your own coi»ands.#117 
COMMAND SAUER: Saves/Recalls Conmands. #118 
CALCULATOR: On-screen calc. Hhen programing. 1119 
COMPUTERIZED CHECKBOOK: 1120 
CURSOR STYLES: 65535 cursor styles! 1121 
DISK CATALOGER:Puts DIRs into Haster D1R.I122 
DISK ENCRYPT: PassHord-protect Bas. Progs. 1123 
DISK LABEL MAKER: DHP Printers! 1124 
DMP CHARACTER SET EDITOR: 1125 
DMP SUPERSCRIPTS: Great for Ten-papers! 1126 
DOS COMMAND ENHANCER: 1127 
ENHANCED KILL: 1128 
ENHANCED LLIST: Beautiful Listings! 1129 
ERROR LOCATOR: CoCo locates your errors. #130 
FAST SORT: 100 strings in 3 seconds!! #131 
FILE SCRAMBLER: Hide your private files! #132 
FULL ERRORS: English error iessages! #133 
FUNCTION KEYS: Speeds prog. tiie. #134 
GEMINI /EPSON GRAPHICS DUMP: #135 
GRADEBOOK:6reat for teachers! #136 
GRAPHICS SCREEN COMPRESSION: 1137 
GRAPHICS SCREEN DMP DUMP: 1138 
GRAPHICS SCREEN LARGE DMP DUMP: #139 
GRAPHICS LETTERINGS sizes! #140 
GRAPHICS MAGNIFY/EDIT: #141 
HOME BILL MANAGER: Keep track of bills. #142 
INPUT/OUTPUT DATA MONITOR: #143 
KEY CLICKER: Ensures inout accuracv.#144 

1 PRDGRAM - S3 2 PROGRAMS - 
4 PROGRAMS - SE4 5 CR MORE 
All arograms on disk. More t 
disk. Documentation included 



KEY SAUER: Save/Recall your keystrokes. 1145 

LAST COMMAND REPEATER: #146 

LINE COPY: Copy Basic Lines. #147 

LINE CROSS REFERENCE: 1148 

LIST/DIR PAUSE: Nd lore flybys! #149 

LOWERCASE COMMANDS: #150 

MAILING LIST: Kith Zipcode Sort! #151 

MASS INITIALI2ATI0N:I152 

ML/ BASIC MERGE: Herae ML k Bas. Proas. #153 

MESSAGE ANIMATOR: Great Billboard!" #154 

ML TO DATA CONUERTOR: 1155 

MULTIPLE CHOICE TEST MAKER: #156 

NUMERIC KEYPAD: Great for nuibers. #157 

ON BREAK GOTO COMMAND: #158 

ON ERROR GOTO COMMAND: 1159 

ON RESET GOTO COMMAND: #160 

PHONE DIRECTORY: #161 

PAUSE CONTROL: Put prograes on hold! #162 

PROGRAM PACKER: For Basic Programs. #163 

PURCHASE ORDER MAKER: Neat Invoices! #164 

RAM DISK: In-senory disk drive. #165 

REPLACE: Find/replace strings. #166 

REUERSE UIDEO CGREEN) : Eliminates eyestrain. #167 

REUERSE UIDEO CRED) : Eliminates eyestrain. #168 

RAM TEST: Checks your RAH. #169 

SIGN MAKER: RUNs on any printer! #170 

SINGLE STEPPER: 6reat debugger! #171 

SPEEDUP TUTORIAL: #172 

SPOOLER : Speedup printouts! #173 

SUPER INPUT/LINEINPUT:#174 

SUPER COMMAND KEYS: #175 

SUPER COPY: COPY lultiple files. #176 

SUPER EDITOR: Scroll thru Bas. Progs. #177 

SUPER PAINT: 65535 patterns! #178 

SUPER REPEAT: Repeat Key. #179 

SUPER SCROLLER: View Scrolled Lines. #180 

TAB/SHIFT LOCK- KEYS: #181 

TAPE ENCRYPT: Password protect Bas. Progs. #182 

TEXT SCREEN DUMP: 1183 

TEXT SCREEN SCROLL LOCK: #184 

TITLE SCREEN CREATOR: #185 

UNKILL:your KILLed disk prograes. #186 

UARIABLE CROSS REFERENCE: #187 

UCR TAPE ORGANIZER: #188 



S1E 3 PROGRAMS - S21 
PROGRAMS - S5 EACH 
han one program sent on the same 



MJF 



MICROCOM SOFTWARE '" ordersS50 & above (except CODs) shipped by UPSZ nd Day Air al no extra charge, last minute shoppers 

P.O. Box214 can benelit VISA MC. AMEX, Check MO Please add S3.00 S&H( USA & Canada), other countries 

Fairport, N.Y. 14450 $5.00 S&H COD (US only) add S2.50 extra NYS residents please add sales tax 

Phone (716) 223-1 477 Computerized processing & tracking of orders. Immediate shipment Dealer inquiries invited 



Call Toll Free (FOr Orders) 1-800-654-5244 9 AM-9PM Monday- Saturday 

Except NY. Order Status, Information, Technical Information, NY Orders call 1-71 6-223-1 477 



and their circulation figures were gener- 
ated primarily by Ihc number of mag- 
azines they printed to be sold (as com- 
pared to actually sold). 

Yes, we're not as thick as we were, but 
1 feel we're working harder on quality. 
The desktop publisher program we are 
printing in this issue is but one example 
of our efforts to bring you more quality 
in the future. You will see more exam- 
ples of this sort of thing. 

Can you help us? Yes, of course you 
can. And, at the same time, you'll be 
helping the CoCo Community itself 
grow stronger, too. 

First, patronize our advertisers. I 
know it is a trite saying, but it is a very 
important one. If someone advertises in 
these pages, let them know you saw 
their ad. If they don't advertise, and you 
hear about them in some other way, ask 
them, "Why not?" Second, and just as 
important, continue to subscribe. Help 
us by renewing your subscription when 
you get your notice (we only send one!). 
And just as important, help us get new 
subscribers. Encourage others to join 
our ranks. 

Yes. we're doing OK. But we'd like to 
do better. It'll help us do a better job for 
you. 



While on the subject of advertising. 
I would like to mention a recent mail- 
order computer sales scam about which 
many of you have, no doubt, heard. 

One of the reasons for my writing is 
to reassure you. We're not looking to 
pat ourselves on the back, but, at the 
same time, when we accept advertising 
for a magazine like this one — in a field 
where there is a great deal of mail-order 
buying and selling — we have to do a 
little more than make cursory checks. 



One of our ad sales people got a call 
several weeks ago from a company 
called Compusystems in California. 
The company wanted to advertise in 
this magazine and sent an impressive 
array of credit materials: an audited 
financial statement from a certified 
public accountant, bank references, 
business references and the like. All 
including telephone numbers, addresses 
and so forth. The company listed assets 



"That seemed 
somewhat 

suspicious, but, after 
all, we're a 
magazine, not a 
detective agency. " 



of more than $6 million and an inven- 
tory of about $4.5 million. Not too 
shabby. They wanted to run a full-page 
advertisement offering excellent prices 
on both software and hardware. 

Our credit department checked their 
references. All of them checked out very 
well — the companies they were doing 
business with, the bank, the CPA firm. 
In fact, the reports were glowing. 

However, our sales rep was some- 
what disconcerted. It seemed that every- 
one she talked with sounded alike; no 
matter who she called, and no matter 
what number, the voices were of the 
same man and the same woman. 



That seemed somewhat suspicious, 
but, after all, we're a magazine, not a 
detective agency. All the phone numbers 
were different and even in different area 
codes. We checked with information, 
which had all the companies listed. 

Every time we checked, though, even 
in different area codes, we discovered 
the same two voices. Then, upon realiz- 
ing that there had recently been some 
changes in the Los Angeles area code — 
so that either one could be used for a 
time — we decided to do a little more 
investigating. 

A call to the Federal Reserve Bank in 
Los Angeles revealed that the bank and 
the banker we had called did not exist. 
A call to the Los Angeles association of 
CPAs revealed no firm or accountant by 
the name we had been given. The Better 
Business Bureau had never heard of 
them. 

We declined the advertisement, and 
we sent the information we had to the 
Federal Reserve and the CPA associa- 
tion for them to follow up. 

Several other publications, including 
CW Communications' Info World, ac- 
cepted it. In a story about the scam, 
which was run a week after the Compu- 
systems full-page ad appeared, Info- 
Wo rid said that the credit was checked 
by "the credit department at IDG, 
InfoWorlcTs parent company." IDG, as 
many of you probably know, is a big 
company that owns a large number of 
magazines, including 80 Micro. 

I would not try to pretend that we 
were not concerned that we would not 
be paid for the ad — after all, that is the 
purpose of a credit check. But 1 am also 
glad that we're small enough to be 
thorough - and to prevent our readers 
from being caught in a scam. 

— Lonnie Falk 



Hint . . . 

Returning from BREAK 

I am sure there has been, or will be, a time in every 
computer user's life when a BASIC program stops 
because of an inadvertent press of the break key. 
Many times, typing CDNT doesn't gel you back into 
the program. And, if you type RUN, all the variables 
and counters will be reset and you will lose any data 
you were working on. What do you do? Keep in mind 
that, in most cases, you can enter GOTO followed by 
the line number at which the program stopped 
execution. If it stopped with an error, use the next line 
number in the program. Such a re-entry preserves all 
data, CLEAR values and even the counter values in 
FOR-NEXT loops. 

Darryl L. Petrak 
House, NM 



Hint . . . 



Peeking the INKEYS 



Most Color Computer programmers are aware of 
the INKEYS statement and how to use it to scan the 
keyboard for a specific key press. Quite a few of these 
people also know that you can use EXEC 44539 for 
the same purpose. But, did you know that the ASCII 
value of the key press is stored and can be found at 
memory location 135? All it takes is a quick peek there 
and you can test for which key was pressed. This really 
helps if you are trying to do something fancy and need 
to perform calculations on the ASCII value. 

Steven Shimatzki 
Dunbar. PA 
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ALL HARDWARE COMPATIBLE WITH COCO 1, 2 & 3 
DISK DRIVES 



Double Sided, Double Density 360 K 40 track disk drives for the Color Computer 1, 2 and 3. Buy from 
someone else and all you get is a disk drive. Buy from us and not only do you get a quality disk drive, you also 
get $60 worth of disk utility software (Super Tape/Disk Transfer and Disk Tutorial) and our DISKMAX 
utility which allows you to use BOTH sides of our disk drives. 1 1' s like buying TWO disk drives for the price of 
ONE!! 

DRIVE 1 (Completely Assembled) - SI 49.95 

DRIVE (With Controller and Cable) - S229.95 

(90 day warranty on all drives) 

DISTO SUPER CONTROLLER: $99.95 

DRIVE CABLES: 1 DRIVE CABLE: $19.95 2 DRIVE CABLE: $24.95 

(For Drives, add $7.00 S&H in USA/CANADA) 



I 




COMMUNICATIONS 
-EXTRAVAGANZA . 



1) AVATEX MODEM: Hayes compatible 
300/1200 Baud, Auto- Dial/ 
Answer/ Redial 
2] MOOEM CABLE 

3) AUTOTEHM TERMINAL SOFTWARE 

4) FREE COMPOSERVE OFFER and ACCESS 
TIME 

5) UPS 2nd DAY AIR Shipping. 
REGS209.95 

ONLY 
$149.95 




UPGRADES 



DYNAMIC RAM CHIPS (120 ns) Set ol 8: 

S44.95 

64K UPGRADE F0R26-3134 A/B COCO II: 

S29.95 

512K UPGRADE FOR COCO III 

Fasl 120ns chips Fully tested Easy installation No 
soldering Comes with complete documentation and 
RAM test program on disk 

4HP only $79.95 

(With purchase ot our 51 2 K RAMDISK program below) 
51 2 K Upgrade without chips S44.95 

512K RAMDISK 

Have 2 superlast RAMDISKsS a print spooler. 

$24.95 



juineniauun am 



CADLES/SWITCHER __ 

RS232 Y CABLE: Hook 2 devices to the 

serial port ONLY SI 8.95 

Y CABLE: Use your Disk System with 

CoCo Max, DS69. etc ONLY $24.95 

15' PRINTER/MODEM EXTENDER CABLE: 

ONLYS16.95 

10' JOYSTICK EXTENDER CABLE SI 9.95 

CASSETTE "Y" CABLE: SI 9.95 

MODEM CABLE: 4 pin to DB 25: S19.95 

15" MULTIPAK/ROMPAK EXTENDER 

CABLE: S29.95 

3- POSITION SWITCHER: Select any one of 

three RS232 devices (printers/ modems) 

from the serial port S37.95 

MAGNAV0X8505/851 5 Analog RGB Cable: 

S24.95 

CM-8 RGB ANALOG CABLE: S19.95 



EPROM 



INTRONICS EPROM PROGRAMMER: Best 
EPROM Programmer for the CoCq 
Lowest Price Anywhere SI 37.95 
EPROM ERASER (Datarase): Fast erase of 
24/28 pin EPROMs. S49.95 
EPROMS: 2764-S8.00. 27128- S9.00 
Call for other EPROMs 



DIGITIZER 



DS-69B DIGISECTOR: Microworks 
Digitizer for CoCo 1 , 2 & 3. Includes 
software ONLY $149.95 



_ PRINTER INTERFACES _ 

SERIAL TO PARALLEL INTERFACE: With 6 
switch selectable baud rates(300-9600) 
Comes with all cables $44.95 
PARALLEL PRINTER BUFFER: 64 K Print 
Buffer with Self Test Reset Button Auto- 
diagnostics & Multiple Copy Functions. 
Includes all cables $129.95. (Please 
allow 1 week for shipment) 



VIDEO 



MISCELLANEOUS 



5 »/4" DISKS(QTY of 100) .45 EACH 
DRIVE CLEANING KIT (30 CLEANINGS) 
S16.00 



UNIVERSAL VIDEO DRIVER: For 
monochrome or color monitor. $29.95 
VIDEO CLEAR: Reduce TV interference 
S19.95 
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MICROCOM SOFTWARE 

P.O. Box 214 
Fairport. N.Y. 14450 
Phone (7161 223-1477 



We accept VISA/MC/AMEX, Check or MO. NOCODs. Please add S3.00 S&H. 
except where otherwise mentioned NYS Residents please add sales tax. 
Prices are subject to change All products are covered by manufacturer's 
warranty. 



Call Toll Free ( For Orders) 1 -800-654-5244 9 am - 9 pm Monday- Saturday 

Except NY. Order Status. Information Technical Information. NY Orders call 1 -71 6-223-1 477 




TANDY'S NEW PRODUCTS 

1000-HX256k 1-3 1/2" Drive 

2.11 Dos on Rom. Parallel Port. 

List $699.00 Our Price 580.00 

1000-TX640K 1-3 1/2" Drive 

80286-4/8 MHZ.. Parallel & Serial. 

Ust 51 199.00 Our Price 995.00 

Tandy 4000 1-3 1/2" 1.4meg Drive 

1Meg Ram. 80386-16 MHZ. 

List $2599.00 Our Price 2160.00 

Tandy 3000 1-5 1/4" 1.2meg Drive 
1Meg Ram, 80286-12 MHZ. 



Ust $1999.00 Our Price 



1660.00 



Tandy 1400LT Portable Computer 
NecV20-7.16MHZ., 768K, DOS 3.2, 
2-3 1/2" Drives, 80 x 25 Display 

List $1599.00 Our Price 1325.00 

TANDY COMPUTERS 

1000-EX256k 1 Drive 470.00 

Color Computer 3 1 28k 1 65.00 

102 Portable 24k 375.00 

MONITORS & BOARDS 

V/M-4 Monochrome Green 95.00 

CM-5 Color RGB 220.00 

CM-1 1 Color RGB 335.00 

EGM-1 Color RGB (EGA) 510.00 

Tandy Dual Display Card 180.00 

Tandy EGA Card 255.00 

DRIVES 

Color Drive 220.00 

Portable Computer Drive 155.00 

5 1/4" External Drive 1000EX 180.00 

3 1/2" External Drive 1000EX 200.00 

Tandy 20 Meg Hardcard 595.00 

Zucker 20 Meg Hardcard 445.00 

Seagate 20 Meg Hard Drive 275.00 

AT HD/1 .2M Controller 200.00 

PRINTERS 

DMP-1 06 Dot-Matrix 150.00 

DMP-130 Dot-Matrix 255.00 

Epson LX-800 Dot-Matirx 185.00 

Epson FX-86E Dot-Matrix 335.00 

Epson FX-286E Dot-Matirx 470.00 

Epson EX-800 Dot-Matrix 405.00 

Epson EX-1000 Dot-Matrix 540.00 

Epson LQ-800 Dot-Matrix 470.00 

Epson LQ-1 000 Dot-Matrix 670.00 

Epson LQ-2500 Dot-Matrix 940.00 

Epson GQ-3500 Laser 1550.00 



AH pncos and otic* may ho changed or withdrawn without notice Adver 
Itsed pre** are cash rucks COD accoplnd add ;" , i (mtnimum charge 
$10 00) M C . Visa add ?«n All ton Uofitciive items require rMurn 
moichandw authoii/alion Call lor RMA Numoor twifcvr returning 
Delivery h subject lo product availability Add ' , j o lor shipping and 
handling SS 00 minimum charge 

TM - Registered Trademark ol Tandy, Epson, and IBM 

Monday thru Friday 9arti-6pm EST. 



PEnnsi 



aaDOD 
annan 

BBS eSlTDlTOo: 

124 South Main Street, Perry, Ml 48872 

CALL 1-517-625-4161 or TOLL-FREE 

1-800-248-3823 
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"Adventuritis" strikes . . . 

RAINBOWfest rounds the corner . . . 

And, RAINBOW splashes on the color 



A graphics Adventure game on Cray Augsburg's monitor stopped me in my tracks 
the other day. It was a stunner! "Where did thai come from?" I quizzed him. 
"It's an Adventure Contest entry," our Technical Editor boasted in a playful, 
but keep-your-mitts-off tone. 

As it turns out, it's this year's contest entry from last year's grand prize winner. Dr. 
Bruce K. Bell, and it's sure to be "in the money" when Cray, our contest chief judge, 
and his able assistant (and wife) Ruth Ann announce the contest winners in our February 
issue. A long time away, you say? Well, do remember you'll be getting that issue right 
al the beginning of the new year, and, since I was the chief judge of our last Adventure 
contest, believe me when I promise you they'll be quite busy over the next three months! 

After all, there arc entries from Maine to Florida. California to Washington. Would 
ynu just look at a sampling of some of these towns: Natrona Heights, Red Wing, Apulia 
Station, Dunkirk, Beeville. Dayton (Tennessee, not Ohio), Okanogan, York, Irmo, 
Chippewa Falls, Carigan. Ogalla, Villas, Crivitz, Kent, Toronto (Ohio), Olivet. 
Cynthiana. Kankakee. Lebanon, Crete — even some from Milwaukie (with an "ie" in 
Oregon and an "ee" in Wisconsin) and one from Miller Place. Yes, more readily known 
communities such as Tucson, Orlando, Montreal and Charleston are represented, too. 

Add in all the others from Canada, many more from the United States and one from 
Cordoba, Argentina, and you get the idea. Since Judge Ruth Ann is also a registered 
nurse, maybe she'll have something for red eyes, insomnia and the other symptoms of 
"Adventuritis" that's bound to infect our judges. Considering that we'll be busy on our 
December holiday issue by the lime you sec this, our February issue is not as far away 
as it might seem. 

What's just around the corner is our Princeton RAINBOWfest! We're finalizing the 
schedule, including the new "Delphi Saturday Night" get-together and our new 
"Educational Sandbox" programs for children and their parents. CoCo Cat's already 
packed! Our keynote speaker, rainbow's own Jim Reed, is so busy making notes that 
all of us here in Prospect are a bit nervous about what he's going to divulge when he 
"tells all." 

With the great seminar lineup, you'll want to be there all day Saturday and Sunday 
if at all possible. Among our new speakers are copyright expert Professor Ed Samuels, 
OS-9 expert Greg Law and high-flying programmer Dr. Larry Preble. Longtime CoCo 
telecommunicator Don Hutchison is going to be "downloaded" from Atlanta via 
something he'd probably call "Delta protocol." I do hope you'll be able to make it to 
this Test, our fifth East Coast show, and get to know other members of our CoCo 
Community. 

Have you noticed that we're "up" 1 6 pages this month? I know many of you have 
written in to comment on rainbow's size this summer, so it feels good to see our annual 
prediction that we'll get bigger in the fall and winter hold true again this year. You see. 
computer magazines in general have a slow spell in the summer, presumably because 
people are out in the sunshine and on vacation, etc., and then things get back into the 
groove as we head indoors again. 

Speaking of annual events, this is our annual Graphics issue and we welcome H. Allen 
Curtis back lo our pages, this time helping harness the power of the CoCo for desktop 
publishing! John Williams provides a new version of CoCo Draw to help you create 
Hi-Res graphics, and even OS-9 guru Dale Puckett is at the drawing board. SollaCarrock 
introduces Animate and Picture Book for displaying your creations and, if you're 
ambitious, you can produce movies, too! Bill Bernico's back again and so is Becky 
Matthews for "splash on the color" month as we explore the brightest side of CoCo. 

So, the CoCo Adventure continues, our 1 4th RAINBOWfest beckons and you can 
color us excited in this seventh year of our CoCo Community. I hope you'll join with 
us as we keep exploring the CoCo world. 

— Jutta Kapfhammer 
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GREAT COCO III PRODUCTS 



FALL SPECIALS*!!! 



s 

A 
V 
E 
$ 



Reg. Price Sale Price 

FKEYS III 524.95 $14.95 

CoCo III Utilities $24.95 $19.95 

CoCo III Screen Dump 

(DMP-105 and Epson ) ...$24.95 $19.95 

Taps/Disk Utility $24.95 $19.95 

Telepatch III $29.95 $19.95 

Multi-Pak Crak $29.95 $19.95 

Spectrum DOS $29.95 $19.95 

Disk Utility 2.1A $29.95 $19.95 

Secrets Revealed & 

C III Graphics $29.95 $19.95 

CoCo III Font Bonanza ...$39.95 $24.95 

CoCo III Terminal 

Program (RTERM 2.0) ...$39.95 $29.95 

CoCo III 

Software Bonanza $49.95 $39.95 

Software Bonanza Pack ...$99.95 $59.95 

EliteWord 80/Spel $99.95 $79.95 



s 

A 
V 
E 

$ 



300 
COCO III POKES 

Get more POWER for your CoCoIII . Has 
commands for 40/80 column screen text 
dump. Command /Function disables, plus 
enhancements for CoCoIII Basic! $19.95 

INSIDE 
OS9 LEVEL II 

With over 100 + pages, a must BOOK for 
ANYONE interested in LEVEL II. $39.95 

COCO III 
UNRAVELED 

A COMPLETE DISASSEMBLY of the CoCoIII 's 
new ROM code! "Well worth the price "- 
Rainbow review. Over 100 pages 1 $29.95 




*- See July '87 Rainbow pg.17 s pg.69 for product descriptions 1 1 1 
LAST chance at these LOW prices I ! I Offer expires 10/15/87 1 1 ! 



COLOR MAX III - The CoCo III CoCo Max Col ° Max 



Font Editor $29.95 




It's here! The CoCoIII BREAKTHROUGH PRODUCT everyone was waiting for! 320x200 graphics , pull down menus, icons 
the choice of any 16 colors from the CoCo Ill's 64 color palette plus RGB support ! Eleven (11) fonts are 
included for hundred's" of lettering styles and painting is a breeze with 16_ colors and 32 editable patterns! ! ! 
Color Max III requires a 128K CoCo III and Hi -Res Joystick interface. ( Specity~printer !T"$59.9b. Color Max III 
Pix Converter - contains six (6) converter programs tor CoCo Max, Graphicom and faK binary files $29.95. Hi-Res 
Joystick interface $14.95. 



SPECIAL BONUS - BUY ABOVE 3 for only $99.95 ! ! ! 



See 10/87 
Rainbow review! 






TW-80 - 80 columns for TW-64 on CoCo III 

It's finally here! An 80 column version of Telewriter-64 for the CoCo III with TELEPATCH features plus much, 
much more! Includes PRINT SPOOLER S (2) ultra-fast RAM DISKS for 512K users, plus changeable CHARACTER FONTS fi 
a setup CONFIG pgm for BACKGND fi FOREGND colors, BAUD rates, etc.. Req. TW-64 DISK and 128K CoCo III $39.95 

PYRAMIX ~ Best CoCo III action game ever! 

CoCoIII version of the popular 3_D Cube Maze game, Cubix! Written exclusively to take ADVANTAGE of all the 
power in your CoCoIII . Colors are absolutely BRILLIANT , the graphics SHARP S the action HOT! 128K DISK $29.95 

51 2K UPGRADE ($79.95) ^Siices iSSJflMr**" 

Easy installation with a superior design for a reliable upgrade, processing efficiency and AVAILABLE NOW for 
the CoCo III! (» $79.95 when purchased with our S12K RAM DISK program for $24.95) A 512K upgrade without RAM 
chips $39.95 - The lowest upgrade prices in the Rainbow magazine, period!!! FREE 51 2K RAM sticker w/ pur chase ! 

HI-RES JOYSTICK utility software BONANZA! 

New useful programs for the Tandy Hi-Res Joystick Interface ! Get FULL 640X640 mouse S joystick resolution from 
BASIC or run both CoCoMaxII S MaxEdit on the CoCoIII w/o the CoCoMax cartridge S get a 256X192 screen! $24.95 

RGB PATCH - No more BLACK & WHITE dots . . . 

Did you buy an expensive RGB monitor ( CM-8 ) just so that you could see your Hi -Res artifactinq CoCo 2 games in 
BLACK S WHITE ??? RGB PATCH converts most games to display in COLOR on an RGB monitor. 128K DISK $29.95 

PAL SWITCHER - Designed by Marty Goodman! 

Have the best of both worlds by being able to switch between CoCo II and CoCo III modes when using a Multi-Pak 
Interface. Req. OLDER PAL S NEW PAL chip for the 26-3024 Multi-Pak Interface $29.95/with NEW PAL chip $39.95 

RGB MONITOR - Better than TANDY CM-8! 



Our monitor is more versatile than the Tandy CM-i 



Unlike the CM-8, PMODE 4 artifact colors 

8515 w/CoCo III cable $329.95 - BONUS! Includes FREE $19.95 6 



Tandy a 
s don't 



Includes RGB Analog , Color Composite fi RGB TrL video input, 
t show up BLACK S WHITE (thru the Color Composite input) Maqnavox 



RGB Analog Video Ext Cable - Add $14 shipping . 



CoCo III 512K RAM sticker $4.99 
Level II Quick Ref Guide $4.99 
Level TY Basic09 binder ..$9.95 



CoCo III Multipak PAL chip $19.95 
CoCoIII Assembly Language .$19.95 
Guide to CoCoIII Graphics .$21.95 



Better CoCoIII Graphics $24.95 
CoCo III Service Manual $39.95 
5T2R" CoCo III Computer $299.95 




PASTDUPE 512 - Format S Backup SS/DS, 35/40 trk disks in ONE PASS! Even OS9 Level II! Up to 4 DRIVES ! $19.95 
BIG BUFFER - 437,888 byte spooler for 512K CoCoIII! Print up to 200 text pages while using your CoCo! $19.95 



All orders plus $3 S/H (Foreign add $5) - NYS Residents add Sales Tax 
Most orders shipped from stock. Please allow 1-3 weeks for processing backorders. 

SPECTRUM PROJECTS 

PO BOX 264 HOWARD BEACH NY 11414 
See our other ad on page 67 




CoCo Gallery 
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Logan Ward 




Rainboween 





This multicolored scene was developed with Color Max 3. Logan also designs the 
Maxwell Mouse cartoons printed in the rainbow, and lives in Memphis, Tennessee. 



Honorable Mention 
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Tina and Haunted Housi 

Robert Hcrmanek 



Tina and Robert, who live in Chaska, Minnesota, 
used BASIC to create this frightening scene. 
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Chris Poster 



CoCo 3 



This graphic creation shows the organization of Chris' 
computer setup and was created with Color Max 3. He lives 
in Texarkana, Texas, and is a sophomore in college. 
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Francisco used a program he wrote to 
display his perception of a ship in outer 
space. He lives in Houston, Texas. 



Dennis created this rich and full-toned 

view of the harvest in basic on the CoCo 3. 

He lives in Cockeysville, Maryland. 




SHOWCASE YOUR BEST! You are invited lo nominate original work tor inclusion In upcoming showings of 'CoCo Gallery ." Share your creations with the 
CoCo Community! Be sure to send a cover letter with your name, address and phone number, detailing how you created your picture (what programs you 
used, etc.) and how to display it. Also, please include a tew tacts about yourself. 

Don't send us anything owned by someone else; this means no game screens, digitized images from TV programs or material that's already been submitted 
elsewhere. A digitized copy of a picture that appears in a book or magazine is not an original work. 

We will award two first prizes of $25, one for the CoCo 3 and one for the CoCo 1 and 2; one second prize of $15 and one third prize of $10. Honorable Mentions 
may also be given. 

Please send your entry on either tape or disk to the CoCo Gallery, THE RAINBOW, P.O. Box 385, Prospect, KY 40059. Remember, this is a contest and your 
entry will not be returned _ Ange|a Kapfhammeri curator 
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By Ricky 
Sutphin 
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The Amazing A-BUS\& 




An A-BUS system with two Motherboards 
A-BUS adapter in foreground 

The A-BUS system works with the original CoCo, 

the CoCo 2 and the CoCo 3. 

About the A-BUS system: 

• All the A-BUS cards are very easy lo use with any language thai can 
read or wriie to a Port or Memory In BASICuse INP and OUT (or PEEK and 
POKE with Ac-pies and Tandy Color Computers) 

• They are all compatible with each other You can mi* and match up to 25 
cards to Tit your application Card addresses are easily set with jumpers. 

• A-BUS cards are shipped with power supplies (except PD-123) and 
detailed manuals (including schematics and programming examples) 

Relay Card RE-i40:si29 

Includes eight industrial relays. (3 amp contacts. SPST) individually 
controlled and latched 8 LED's show status Easy to use (OUT or POKE in 
BASIC) Card address is jumper selectable 

Reed Relay Card re-is6:S99 

Same leatures as above, but uses 8 Reed Relays to switch low level signals 
(20mA max) Use as a channel selector, solid state relay driver, etc. 

Analog Input Card ad-i42:$i29 

Eight analog inputs to +5V range can be expanded to 1 00 V by adding a 
resistor. 8 bit resolution (20mV). Conversion time !20us. Perfect lo 
measure voltage, temperature, light levels, pressure, etc. Very easy to use 

1 2 Bit A/D Converter an-146: $139 

This analog to digital converter is accurate lo.025%. Input range is — 4 V to 
+4 V Resolution: 1 millivolt The on board amplifier boosts signals up lo 50 
limes to read microvolts. Conversion lime is 1 30ms. Ideal for thermocouple 
strain gauge, elc. 1 channel (Expand to 8 channels using the RE-156 card) 

Digital Input Card in-i41:S59 

The eight inputs are optically isolated, so it's sate and easy to connect any 
"on/off" devices, such as switches, thermostats, alarm loops, elc. lo your 
computer To read the eight inputs, simply use BASIC INP (or PEEK) 

24 Line TTL I/O dg-i48:$65 

Conned 24 input or output signals (switches or any TTL device) to your 
computer The card can be set lor input, latched output, strobed output 
strobed input, and/or bidirectional strobed I/O Uses Ihe 8255A chip. 

Clock with Alarm cl-144: $89 

Powerful clock/calendar willv battery backup lor Time, Dale and Alarm 
selling (time and date): built in alarm relay, led and buzzer timing to 1/1 00 
second Easy to use decimal format Lithium battery included. 

Touch Tone e Decoder ph-i45:S79 

Each tone is converted into a number which is stored on the board. Simply 
read the number wilh INP or POKE Use lor remote control projects, etc 

A-BUS Prototyping Card pr-i52:sis 

3'A by 4Vz in wilh power and ground bus Fits up lo 10 I.C.S 




ST-143 



Si 



Plug into the future 

With the A-BUS you can plug your PC (IBM, Apple, 
TRS-80) into a future of exciting new applications in the fields 
of control, monitoring, automation, sensing, robotics, etc. 

Alpha's modular A-BUS offers a proven method to build your 
"custom" system today. Tomorrow, when you are ready to take 
another step, you will be able to add more functions. This is ideal for 
first time experimenting and teaching. 

A-BUS control can be entirely done in simple BASIC or Pascal, 
and no knowledge of electronics is required! 

An A-BUS system consists of the A-BUS adapter plugged into 
your computer and a cable to connect the Adapter to 1 or 2 A-BUS 
cards. The same cable will also fit an A-BUS Motherboard for 
expansion up to 25 cards in any combination. 

The A-BUS is backed by Alpha's continuing support (our 11th 
year, 50000 customers in over 60 countries). 

The complete set of A-BUS User's Manuals is available for $10. 



Smart Stepper Controller sc 149. $299 

World's finest stepper controller On board microprocessor controls 4 
motors simultaneously. Incredibly, it accepts plain English commands like 
"Move arm 1 0.2 inches left" Many complex seguences can be defined as 
"macros" and stored in Ihe on board memory For each axis, you can control' 
coordinate (relative or absolute), ramping, speed, step type (hall. full. wave), 
scale factor, units, holding power, etc Many inputs- 8 limit & "wait until" 
switches, panic button, elc On the fly reporting ol position speed, etc. On 
board drivers (350mA) for small steppers (M0-1 03) Send lor SC-1 49 flyer 
Remote Control Keypad Option RC-1 21 : S49 

To control Ihe 4 motors directly, and "leach" sequences ol motions 
Power Driver Board Option PD-123: S89 

Boosl controller drive lo 5 amps per phase For two motors (eight drivers) 
Breakout Board Option B8-1 22: S1 9 

For easy connection ol 2 motors 3 fl cable ends with screw terminal board 

Stepper Motor Driver st-143:S79 

Stepper motors are Ihe ultimate in motion control. The special package 
(below) includes everything you need lo gel familiar wilh them Each card 
drives two stepper motors (1 2V, bidirectional. 4 phase 350mA per phase) 
SpecialPackage:2motors(MO-103) + ST-143 PA-181: S99 

Stepper Motors mo-i 03: si 5 or4 for$39 

Pancake type. 2S4" dia, V shall, 7 57step. 4 phase bidirectional 300 
step/sec. 12V.36ohm. bipolar, 5 oz-intorgue. same as Airpax K82701-P2 

Current Developments 

Intelligent Voice Synthesizer, 14 Bit Analog to Digital converter ,4 Channel 
Digilal to Analog converter. Counter Timer. Voice Recognition. 

A-BUS Adapters for: 

IBM PC, XT AT and compatibles Uses one short slot AR-133 S69 

Tandy 1000. 1000 EX&SX 1200,3000. Uses one short sioi AR-133. $69 

Apple II, II+. lie Uses any slot AR-134 $49 

TRS-80 Model 102. 200 Pluns into 40 pin "system bus" AR-136. SB9 

Model 100. Uscs40pinsockel (Socket is duplicated on adapter! AR-135 $69 

TRS-80 Mod3,4.4D Fits 50 oin hus (With nard disk use v-cablcl AR-132 S49 

TRS-80 Model4P.lncliidese<lracable(50oinbu$isrecesssdl AR-137 $62 

TRS-80 Model I Plugs into 40 pin I/O bus on KB or E/l AR-131 S39 

Color Computers (Tandy).Fts ROM slot Mullioak oi Y-cable AR-138 $49 

A-BUS Cable (3 ft, 50 cond.) CA-163: S24 

Connects Ihe A-BUS adapter to one A-BUS card or lo lirst Motherboard 
Special cable for two A-BUS cards: CA-1 62: $34 

A-BUS Motherboard mb-i2o:$99 

Each Motherboard holds live A-BUS cards. A sixth connector allows a 
second Molherboard to be added to Ihe lirst (with connecting cable CA- 
161: S12) Up lo live Motherboards can be joined this way to a single A- 
BUS adapter. Slurdy aluminum Irame and card guides included 
• The A-BUS is not a replacement for the Multi-pak 




CL-144 




RE-140 




IN-141 
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AD-142 



Add S3. 00 per order for shipping. 
Visa, MC. checks, M.O. welcome. 
CT & NY residents add sales tax. 
C.O.D. add S3. 00 extra. 
Canada: shipping is S5 
Overseas add 10% 




j 5>grm /ndusf'ss Company 



ALPHA (Pm$hB&& 

242- W West Avenue, Darien, CT 06820 



Technical info: (203)656-1806 

&° c n T ly 800 221-0916 

Connecticut orders (203) 348-9436 

All lines open weekdays 9 to 5 Eastern time 
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The listing: HORROR 

10 ■ ( COMPUTE CH- 80 BBS) 

20 'RICKY SUTPHIN 

30 'ROUTE 1 BOX 20 

40 'HENRY, VA 24102 

50 '703-365-2018 

60 '8PM-6AM MON-SUN 300 BAUD 

70 ' 

80 'halloween horror find 

90 '64K COCO 2 

100 ' 

110 CLS0 

120 X=1000 

130 W$=CHR$(128) 

140 PRINT@2 28 , "halloween" ;W$ ; "ho 

rror";W$;"find"; 

150 FORB=lTOX+X:NEXTB 

160 PRINT@262 , "by" ;W$ ; "ricky" ; W$ 

;"sutphin" ; 

170 FORB=lTOX+X:NEXTB 

180 FORB=1TO10 

190 SOUND100,1 

200 CLS 

210 SOUND100,1 

2 20 CLS0 

2 30 SOUND100,1 

240 CLS 

250 NEXTB 

2 60 PRINT@19 2,"HERE ARE 20 QUEST 

IONS THAT ARE ABOUT HORROR MOVI 

ES OR THEME CHARACTERS FROM H 

ORROR MOVIES. THE QUESTIONS ARE 

ARRANGED IN A WORDFIND FORMAT. 
HAVE FUN!":GOSUB540 
270 CLS 

2 80 READA$,S,A1$ 

290 IFA$="END"AND S=999 AND Al$= 

"END"THEN410 

300 PRINT@5, "halloween horror fi 

nd" 

310 PRINT@128,"here are the clue 

s:" 

320 PRINT@ 192 , A$ : PRINT : PRINT"num 

ber of letters: ";S 

330 PRINT@480,STRING$(31," " ) ; 

3 40 PRINT? 3 52, "enter guess " 

350 PRINT@384,"or h for search 1 
ist ":PRINT@416, "or q to give up 

->»; 
3 60 INPUTG$ 
370 IFG$=""THEN300 
380 IFG$="Q"THENPRINT@448,"the w 



ord was-" ; Al$ : FORB=lTOX+X : NEXTB : 

GOTO270 

390 IFG$="H"THEN C=3 : GOTO810 

400 IFG$=A1$THENGOSUB420ELSEGOSU 

B480 

410 GOTO950 

420 CLS 

430 PRINT@2 3 5,"! correct!" 

440 SOUND200,1 

450 FORB=lTOX+X: NEXTB 

4 60 C=2 

470 GOTO540 

480 CLS:PRINT@235, "<wrong>" 

490 PRINT@265,"<try";W$;"again>" 

500 SOUND100,1 

510 FORB=1TOX+X: NEXTB 

520 C=l 

530 GOTO540 

540 PRINT@483, "press any key to 

continue" ; 

550 I$=INKEY$:IFI$=""THEN550 

560 IFC=1THEN300 

570 IFC=2THEN270 

580 IFC=3THENCLS:GOTO300 

590 RETURN 

600 DATA"ONE HUNGRY VAMPIRE TO A 

NOTHER: 'HAVE A *****!'", 5, HEART 

610 DATA" I'VE A HUNCH YOU WON'T 

GET THIS ONE . " , 9 , QUASIMODO 

620 DATA"NOT APPEARING THIS WEEK 

: THE ********* MAN.",9,INVISIBL 

E 

630 DATA"WHAT THE BLOB IS BEST A 

T . " , 7 , GROWING 

640 DATA"THE VAMPIRE'S FAVORITE 

COWBOY: *** MASTERS ON.", 3, BAT 

650 DATA"THE MOST FAMOUS FRANK!" 

, 12 , FRANKENSTEIN 



Two- Liner Contest Winner . . . 

This program produces some very interesting designs 
by rotating each of five lines about the endpoint of the 
last line. 

The listing: 

COLOR1 , : PCLEAR8 : PMODE4 : PCLS : P 
MODE4 , 5 : PCLS : FORT=0TO4 : D (T) =RND ( 
360) :I(T)=RND(16)-8:L(T)=RND(25) 
+9 : NEXT : FORT=0TO1STEP0 : PMODE4 : GO 
SUB1 : PMODE4 , 5 : GOSUB1 : NEXT 

1 X=128:Y=96:LINE-(X,Y) ,PSET:FOR 
T=0TO4 : X=SIN ( D (T) /57 ) *L (T) +X: Y=C 
OS(D(T)/57)*L(T)+Y:LINE-(X,Y) ,PS 
ET : D (T) =D (T) +1 (T) : NEXT : SCREEN1 , 1 
: RETURN Sage Radachowsky 

Bantam, CT 

(For (hi- winning two-liner contest entry, the author has been sent copies of 
both The Third Rainbow h\iok of Adventures and its companion 'Pie Third 
Rainbow Adventures Tape.) 



22 



THE RAINBOW October 1987 



-nsg* 




"The best program ever written for the Color Computer 



)) 



That" s how thousands of enthusiastic users rated 
theCoCo Max II drawing program. With CoCo Max 
III we are ready to amaze them again. Instead of 
"patching" CoCo Max II, we rewrote it from scratch 
to take advantage of the CoCo Max III hardware. 
The results will knock your socks off! Below is a 
brief list of some of the new features, but some, 
suchasanimation,colorsequencing,ortheslide 
show, have to be seen. Send for the Demo Disk, and 
see for yourself. 

Everybody's favorite drawing package features: 

- A 50% larger editing window. - Zoom area 400% 
larger. - New drawing tools: rays, 3D cubes, arcs,... - 
New editing tools: shadow.text size,... - Rotate by 1.5" 
steps - Select any 1 6 of the 64 possible colors (all 64 
colors displayed at once!) - Powerful color mix: additive, 
subtractive, overlay,... - Full color editing of patterns 
and color changing patterns. - Incredible special eff- 
ects with color cycling up to 8 colors with variable 
speed. -Animation adds the dimension of motion to 
your image. (Must be seen.) - Sophisticated data com- 
pression saves up to 70% of disk space when saving 
pictures. 

In addition, there are dozens of enhancements to the 
multitude of features that made CoCo Max II a bestseller. 

More about CoCo Max III 

• CoCo Max III is not an upgrade of CoCo Max II. It is entirely 
rewritten to take advantage of the new CoCo 3 hardware 
(More memory, resolution, colors, speed,...) 

• The new CoCo Max III Hi-Res Interface and the CoCo Max II 
Hi-Res Pack are not interchangable. 

• The new interface plugs into the joystick connector. 

• The CoCo Max III disk is not copy protected. 

• CoCo Max 111 only works with the CoCo 3. 

• A Y-Cable or Multi-pak is not necessary. 

• Colors are printed in five shades of gray. 

• CoCo Max III can read CoCo Max II pictures and fonts. 



Note: CoCo Max II (for the CoCo 2) is still available on disk 
(S79.95). CoCo Max I is still available on tape ($69.95). For 
details, refer to our double page ad in any Rainbow from 
January '86 to July '87 



Toll Free operators are for orders only. II you need precise answers, call 
the tech line. (Detained CoCo Max specs are included with the Demo Disk.) 



Add Sllin por ardor lor ihlpplnp 
Visa. MC. ctrackl. M.O. watcomn. 
CT rasldents add salas tax. 
C.O.D. add S3.00 aitra. 
Canada: shipping Is $5 
Ovarian add 1(1% 
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Technical into (203)656-1806 

g£fVS ly 800 221-0916 

Connecticut orders (203) 348-9436 

All lines open weekdays 9 to 5 Easlern lime 



I File Edit Options colors Font Size Style 




Imagine this picture in sixteen colors ! 



Guaranteed Satisfaction 

Uae CoCo Max for a full month. 

If you are not delighted with It, 

we will refund every penny. 



System Requirements: 

Any CoCo 3 disk system with a Joystick or a Mouse. 

We apologize to tape users, CoCo Max III needs the llexibility of a disk. 

The CoCo Max III system includes: • The special Hi-Res 
interface(foryourmouseorjoystick) • TheCoCo Max III disk • Many 
Utilities: (Toconvert Max II pictures. Max II fonts, etc.) • A detailled User's 
Manual. Complete system; nothing else to buy. CoCo Max III : S79.95* 



■ WITH COUPON ONIY 



FREE DEMO DISK 

Name 
Street 
City 
State Zip 

Printer used: 

Please include S2 to helpdefray Processing and Shipping 
costs. (Check. Money Order, etc. Sorry, no COD or Credit 
Cards). Coupon (or copy) must be mailled to: 



Jf Beware ol cheap and interior imitations thai DO NOT include a Hi-Res Inierlace 
or charae extra tor each utility. 



[COLORWARE 



A division ol Sigma Induslries, Inc 



COLORWARE 

24 2- W West Avenue 
Darien, CT 06820 



660 DATA" IS BELA A NAME FOR A FE 

LLA?",6,LUGOSI 

670 DATA"MONSTERS ■ FAVORITE COME 

DIAN: **** HOPE . " , 4 , BLOB 

680 DATA"ONE GIANT ANT TO ANOTHE 

R: 'HE **** ME! '",4, BUGS 

690 DATA"MAKE A FACE, LON.",6,CH 

ANEY 

700 DATA"MONSTERS EAT HERE.", 9, C 

LEVELAND 

710 DATA"SOUND OF A SAD GHOST.", 

6 , BOOHOO 

720 DATA"THE KING", 4, KONG 

730 DATA "WHAT THE MONSTER SAID A 

FTER EATING STEVE MARTIN .", 9 , EXC 

USE ME 

740 DATA" SOUND OF A MONSTER ON W 

ALL STREET", 5, CRASH 

750 DATA"THE MONSTER BURNED DOWN 

PITTSBURGH BECAUSE HE LIKED HIS 

MEAT WELL ****.» , 4 , DONE 
760 DATA" WHAT THE BLOB MAKES PEO 
PLE", 6, QUEASY 

770 DATA" ONE STARVING GHOST TO A 
NOTHER: 'I'M TRYING TO *** OUT A 

LIVING! '",3,EEK 
780 DATA" FOR THE VAMPIRE IT WAS 
**** AT FIRST BITE", 4, LOVE 



790 DATA "WHERE THE 
THEIR CARS: ****** 
6 , HEARSE 



MONSTERS GET 
RENT-A-CAR. " , 



800 
810 
INT 
820 
830 
840 
850 
8 60 
870 
8 80 
890 
900 
910 
920 
930 
940 
950 
960 



DATA"END" , 999 , "END" 

CLS : PRINT§11 , "searchlist" : PR 



PRINTTAB(10) 
PRINTTAB (10) 
PRINTTAB (10) 
PRINTTAB(10) 
PRINTTAB(10) 
PRINTTAB (10) 
PRINTTAB ( 10 ) 
PRINTTAB ( 10 ) 
PRINTTAB ( 10 ) 
PRINTTAB (10) 
PRINTTAB ( 10 ) 
PRINTTAB (10) 
GOTO540 



"cbexcusemebc" 
"bhtraehbcdbd" 
" f rankenstein" 
" ombnmb cb 1 dma " 
"bdonecdbugsl " 
"mnobcyicgbde" 
"alhmbsblobhv" 
"growingbsdee" 
"brovdsbciral " 
"kongebahsarc" 
"midcbldumcsr" 
" ldcysaeugeek" 



CLS 

PRINT@160,"DID YOU HEAR ABOU 
T THE GIRL WHO MARRIED THE OLD E 
GYPTIAN KING? WELL IT TURNS OUT 
THAT SHE WAS ONLY AFTER HIS MU 
MMY ! " : PRINT : PRINT : PRINTTAB ( 12 ) ; " 
bye now! " :GOTO960 
970 K COCO 2 

fSSk 
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COLOR TALK 3 



The Complete Terminal/Communications Program you've been wailing for! 



just look at litis partial list of Impressive Features: 

•Supports COCO 3 as well as COCO 1 & 2. 'Screen Display options: COC03: 80x24, 

40x24, 32x16 Standard COCO: 32x60, 32x24, 51x24, 64x24, 85x24. 'Supports PBJ 

Wordpack & Double 80 + . *XMODEM & YMODEM. "Upload & Download. 
•Save to buffer or direct to disk. •Full ASCII XON/XOFF support. 'ASCII filtering. 
•ASCII buffering. •Customizcr-sct and store frequently used options/parameters. *10 - 
64 character user programmable macros. *Conference/Chat mode. *Selcctable Baud 
rates of: 110,300,600,1200,2400,4800,9600 (will support RS232 Pak to achieve the baud 
rates to 9600). *Parity: Odd, Even, Mark, Space, None. *VT-52 Terminal Emulation. 
•Duplex: Half, Full, Echo. *Set Begin Block/End Block for selected save and print func- 
tions. 'Browse/View through buffer. *Dcfine margins, word-wrap, and justification for 
print-outs. 'Complete support of the COCO's serial port and the RS232 Pack. 'Op- 
tional prompted ASCII upload. 'Customize Colors to suit your display. Much, Much 
More! 

Ideal for accessing CompuServe & Delphi & other Information Services. Send your Color 
Max 3 "MGE" pictures to friends and fellow COCO users. THIS IS THE ONLY COM- 
MUNICATIONS PROGRAM AVAII.ABLE FOR YOUR COCO WITH ALL OF THIS 
POWER! Compare COLOR TALK 3 with programs for the "PC market costing 4 to 
5 times as much. I'm sure you'll agree that COLOR TALK 3 represents real value for 
your COCO Dollars! 



Cat.#255MD Disk Only. 



Introductory price.. Just $49.95 




% 
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ore than games, more than 
Adventures, more than utili- 
ties — come to think of 
it, more than almost any other as- 
pect of computing, my favorite part is 
discovering new ways to improve my 
own original programs. Programming 
hints and tips are tucked away on a 
special disk all their own in my collec- 
tion, and I refer to them often. 

I recently added another helpful hint 
to that disk, concerning Hi-Res gra- 
phics screen presentations. Normally, 
after I've displayed a picture or graphics 
text, or both, and I want to move on to 
the next part of the program, 1 include 
the PCLS command to clear the screen 
and make room for whatever is coming 
up next. 

This is technically the correct proce- 
dure, but by itself it is rather bland and 
unexciting. With the procedure de- 
scribed here you'll be able to display 
your graphics screen as usual, but when 
it comes time to move on to the next 
screen, you can scroll the contents off 
instead of quickly erasing them, as with 
the PCLS command. 

If you'd like to save some time 
entering the program from the key- 
board, you can leave out lines 10 
through 40 and any odd-numbered line. 
They are merely remark statements 
describing what's happening in the next 
line. For example. Line 45 tells you 
what the purpose of Line 50 is. The REM 
lines are there to help you understand 
how to modify this procedure to suit 
your own program. 

Bill Bernico is a self-taught computerist 
who enjoys golf, music and program- 
ming. He is a drummer with a rock band 
and lives in Sheboygan. Wisconsin. 
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Basically, there are three steps lo 
jJtnQBJje m > s procedure. First, define the scroll 
address and assign it to the variable A, 
as in Line 50. Next, set up the graphics 
screen and draw your picture, text or 
whatever. Lastly, after the screen is 
displayed, EXEC the variable from Line 
50 — in this case you will type EXEC fi. 
This starts the scrolling and continues 
until the screen is clear. 

Notice the remark in Line 65. It says 
that if you frame the screen all the way 
to the bottom (vertical screen position 
191), it will scroll up black instead of 
white. Keep this in mind when drawing 
a picture or text. Avoid drawing down 
as far as 191 if you want a "clean" scroll. 

Finally, it's just as easy to use this 
procedure with binary picture files. For 
example, if you want to make a binary 
picture file of these particular screen 
contents, type in lines 60 to 210, leaving 
out the remark lines in between. Then 
type 220 SAVEf1"PICTURE",35B4 , 
9727,3584 and run the program, mak- 
ing sure you have a disk in the 
drive. This will create a binary 
'PI? picture file for later use. 

Your next step is to type in lines 50, 
60, 220 and 230, leaving out all other 
lines. Now add 70 LOADITPICTURE" 
and save this five-line program as your 
"loader" program. When run, it will 
load the picture file and wait for yon to 
press any key before scrolling up and off 
the screen. You can substitute any other 
picture file you like. The effect is really 
worthwhile. 

(Questions or comments may be 
addressed to the author at 708 Michigan 
Avenue, Sheboygan, Wl 53081. Please 
enclose an SASE when requesting a 
reply.) □ 
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power ol your CoCo 3. with 320 x 200 
resolution, and the choice of any 16 colors 
the CoCo 3's 64 color palette, and your 
raphlc creations almost can't help, but come alive 
with color and detail, 'cons, pull down menus, and 
' dialog boxes make. COLOR MAX 3 very easy to use. 
11 fonts are supp'/ed, making hundreds.ol lettering 
styles possible. Text can use any combinations of 
color, shadow, outline, bdid. and Italics. Painting is 
a snap with 16 colors and 32 editable patterns. 
COLOR MAX 3 requires a 128K CoCo 3 with disk 
drive. High-Resolution Joystick interface, and a 
joystick device (mouse, toucfi pad, or joystick).. 

ORDER YOURS TODAY! 

200MD CM3(without print driver-print 

driver coupon supplied) 

201MD CM3(for Epson MX/RX/FX & 

compatablcs) 
202MD CM3(for DMP 105/120/130 

/200/400) . 
203MD CM3(for CGP220 Produces 
16 color print-outs) 



UCING 
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Hi-Res Joystick Interface. 

(Radio Shack #26-3028) 
Cat. #221CH 



$12.00 



Picture Converter 1 (C) 

6 Picture Format Converters: 

* CoCo Max B&W to "MGE" 

* CoCo Max artifact to "MGE" 

* 6K B&W binary file to "MGE" 

* 6K artifact binary to "MGE" 

* Graphicom B&W to "MGE" 

* Graphicom artifact to "MGE" 
(MGE is Color Max 3 Pix format) 
Cat.#220MD $29.95 



MOUSE PADS 

Super High Quality Rubberized 
Mouse Pads with Felt Finish. 
10 3/4 x 8 1/2" Specify Color... 

Red 

Blue 

Silver 

$10.99EA 



Cat.#210CH 
Cat.#211CH 
Cat.#212CH 



Picture Converter 2(C) 

Converts ATARI (tm) Low Res 

320x200 picture files to "MGE" ' 

format used by Color Max 3. 

Works with ATARI pictures with 

file extensions .ST, .NEO, and 

.TNY. 

NOTE: This utility is designed to allow 

the user to rclricve picture files from 

Bulletin Boards and Information Services. 

Piles must be "Un-Arccd". 

Most databases have "UN-ARC" utilities 

available. 

Cat.#222MD $29.95 

Color Max 3 Font Editor(c) 
Create/Modify fonts for use with 
Color Max 3. Create Keyboard 
driven Icons. Customize existing 
fonts. Works in a "Fat Bits" type 
mode. Variable Height & Width. 
Let your imagination "go to work"! 
Cat.#224MD $29.95 



CM3 Basic Tool & Gallery 
Load & Save "MGE" pictures for 
display outside of Color Max 3. 
Incorporate into basic programs. 
Gallery lists all MGE files-just 
Point & Display! 
Cat.#225MD $19.95 

Color Max 3 FONTS 

Max3 Fonts from Derringer 
Software. Quality fonts like those 
created for CoCo Max(r). 
Over 25 Fonts in all! 
Cat.#223DD $29.95 

YOU HAVENT PURCHASED 
COLOR MAX 3??? TRY A 

DEMO DISK SHOWS YOU 

THE P O W E R OF CM3! Price 
of demo is deducted when you buy! 
Why Wait???ORDER NOW 
Cat.#219MD $5.00 
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The listing: SCROLL 



10 

20 

30 

40 

45 

50 

55 

60 

R0, 

65 



70 
75 



85 
90 
95 

100 
105 
110 
115 

120 
125 

130 
135 



'GRAPHICS SCREEN SCROLL 
'FROM KROMICO SOFTWARE 



BY BILL BERNICO 



'FIND SCROLL START ADDRESS 
A=(PEEK(27)*256+PEEK(28) ) -543 
•SET UP HI-RES SCREEN 
PMODE4 , 1 : PCLS1 : SCREEN1 , 1 : COLO 
1 
•FRAME THE GRAPHICS SCREEN.. 

IF YOU CHANGE (2 55,190) TO 

(255,191) IT WILL SCROLL UP 

IN BLACK INSTEAD OF WHITE 
LINE (0,0)-(255, 190) ,PSET,B 
'DRAW A SQUARE IN THE UPPER 

LEFT CORNER OF THE SCREEN 
DRAWBM10 , 10R30D30L30U30 
' POKE FOR ORANGE COLOR PAINT 
POKE 178,1 
'PAINT UPPER LEFT SQUARE 

PAINT (12, 12) , ,0 

'POKE TO CANCEL ORANGE COLOR 

POKE 178,0 

•DRAW A DIAMOND IN THE LOWER 
RIGHT CORNER OF THE SCREEN 

DRAW"BM200, 160E20F20G20H20 

•POKE FOR BLUE COLOR PAINT 

POKE 

' PAINT 



140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 



PAINT (205, 160) ,,0 
•POKE TO CANCEL BLUE COLOR 
POKE 178,0 

'DRAW CIRCLE IN CENTER 
CIRCLE (128, 96) ,50 
'POKE FOR STRIPED COLOR 
POKE 178,100 

'PAINT CIRCLE WITH STRIPES 
PAINT (128, 96) , ,0 
•POKE TO CANCEL STRIPE COLOR 
POKE 178,0 
'DRAW LETTERS TO SPELL OUT 



"SCROLL TEST" IN UPPER RIGHT 

200 DRAW"BM138,28R5U4L5U4R5BR4NR 

5D8R5BR4U8R4FD2GL3F4BR4NR6U8R6D8 

BR4NU8R5BR4NU8R5BM200 , 20R6L3D8BR 

7NR5U4NR4U4R5BR4NR5D4R5D4L5BR12U 

8L3R6 

205 'DRAW LETTERS TO SPELL OUT 

"HIT ANY KEY" IN LOWER LEFT 

210 DRAW"BM20,175D8U4R5U4D8BR5U8 

BR4R6L3D8BR13U8R5D4NL5D4BR4U8DF6 

DU8BR4DF2E2UDG2D5BR12U8D4NE4F4BR 

4NR5U4HR4U4R5BR4DF2E2UDG2D5 



178,2 



LOWER RIGHT DIAMOND 



215 

220 
225 

230 

240 



1 PAUSE THE SCREEN UNTIL YOU 

HIT ANY KEY 
IF INKEY$=""THEN 220 
'ONCE A KEY IS HIT, BEGIN 

SCREEN SCROLLING 
EXEC A 
CLS:LIST-30 /R\ 



SPEAK -EAS 

BY FAZER ELECTRONICS 

PRINT * - 2 . " H E L L . " 

THIS AMAZING SPEECH SYN- 
THESIZER PLUGS INTO THE 
PRINTER PORT AND SPEAKS 
WHAT YOU WOULD PRINT ! 

MORE FEATURES ! ! 

* SPECIFICALLY DESIGNED FOR THE 
RADIO SHACK COLOR COMPUTER 

* HAS INTERNAL AMPLIFIER 

* NO RAM NEEDED FOR DICTIONARY 
OR DRIVER PROGRAM 

* ATTRACTIVE CONSTRUCTION 

* INDEPENDENTLY POWERED 

* CAN BE USED WITH PC COMPATABLES 
EQUIPPED WITH RS-232 

BY FAR THE EAS IEST 
SYNTHESIZER TO USE ! 

** ALL FOR ONLY $1 49 .00 ! 
ORDER NOW BY PHONE visa or 
OR MAIL CHECK TO 



N 



M/C 



^T^EJ^ELECTRONICS . INC 



539 MCDANIEL 
CONYERS. GA. 



MILL RD. 
30237-9998 



404-929-1657 



1A 





MY ARTIST 

A COC03 high resolution 
picture drawing program. 
Keyboard S. joystick con- 
trol for lines, box, oval , 
paint, repro, 16 colors, 64 
hues, 2 menus, 2 speeds, 4 
modes, fast ML save/load. 
BASIC with manual. 
Requires COC03, joystick, 
TV or monitor. Specify 
cassette or disk.. $14. 95 

THE DIRECTOR 

A COC03 picture, sound an 
color animation program. 
Prepare and edit display 
sequences of MY ARTIST format pictures, 
color changes, time delays, BASIC S. cas- 
sette sound. Great for VCR recordings!!! 
BASIC with manual and a display sharing 
program. Requires COC03,TV or monitor. 

Specify cassette or disk $39.95 

BOTH MY ARTIST S. THE DIRECTOR $49.95 

Prices include $3 shipping and a 30 day 
money back guarantee. SC residents add 
5% sales tax. No credit cards. 

SEND CHECK OR MONEY ORDER 

SEESOF 

PO Box 574, Beaufort, SC 29901 
Phone 803-524-0116 
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eweenj Quarrel is a puzzle written in BASIC 
for the Color Computer 3. The object is 
to place eight queens on a chess board so 
that no one may capture another — that is, no 
piece may line up with another either vertically, 
horizontally, or diagonally. 

Just load and run the program. The title screen 
will appear and the letters will change colors. 
You'll then be asked whether you're using an 
analog RGB monitor or a composite monitor 
(television). After you answer the question, the 
chess board pops up on the screen with a flashing 
box in the center. 

To put a queen on the board, just move the 
flashing box to the desired square using the arrow 
keys and press ENTER. If you have made a legal 
move, then a white queen appears in the square. 
If you cannot place a queen in the square, then 
you have attempted an illegal move (another 
queen is in line with the square) and need to try 
some other square or remove another piece or 
pieces from the board. To remove a piece from 
the board, just move the flashing box over the 
piece, press ENTER, and the piece will vanish. 

Get all eight queens on the board and you'll see 
"you win" on the screen. If you get too frustrated, 
you may press the S and the computer will show 
you a possible solution to the puzzle. 

(Questions about this program may directed to 
the author at 6905 Kinard Road, Plant Cit v, FL 
33566, 813-986-1645. Please enclose an SASE 
when writing for a reply.) □ 



Scot Allen is a 16-year-old junior at Plant City 
High School in Plant City, Florida. He has owned 
a Color Computer for many years and has 
recently bought a Color Computer 3. 
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The listing: QUEENS 



r 200 . . . 


...223 


330 ... 


...199 


440 ... 


. . .229 


END.. 


...244 





10 ONBRKGOTO580:POKE&HFFD9,1:REA 

DSX , SY : DIMGD (7,7): FORI=0TO15 : PAL 

ETTEI,0:NEXT 

20 HSCREEN2:HCLS0:WIDTH32:POKE&H 

95C9 , &H7F : POKE&HE6C6 , 18 : POKE&HE6 

C7 , 18 : POKE&HFF2 2 , &H10 

30 print@ij38, "Queens 1 " 

40 PRINT@172, "Quarrel" 

50 PRINT@239,"by" 

60 PRINT@299,"Scot Allen" 

10 POKE&HE6,2 

80 HBUFF1,400 

90 HDRAW"C15BM16,0RF2RFG3DF2L2D6 

FDF2R2DFL15EUR2E2UEU6L2E2UH3ERE" 

: HPAINT (17, 1) , 15: HDRAWC14BM-3 , + 

3R9BM-1,+6L7" 

100 HGET(0,0)-(31,23) ,1:HCLS13 

110 F0RX=1T08 

120 F0RY=1T08 

130 PALETTE 1 2, X* 8+ Y 

140 IFX=INT(X/2)*2THENC=8ELSEC=1 

150 IFY=INT(Y/2)*2THENIFC=8THENC 

=10ELSEC=8 

160 HCOLORC 

170 HLINE(X*32,Y*24-24)-(X*32+31 

,Y*24) ,PSET,BF 

180 NEXTY,X 

190 PRINT: PRINT" Do you have a 

n RGB monitor" 

200 PRINT" or a composite monit 

or (tv)?" 

210 PRINT" R or C" 

220 M$=INKEY$ : IFNOT (M$="c"ORM$=" 

C"ORM$="r"ORM$="R")THEN220 

230 HSCREEN2 : IFM$="c"ORM$="C"THE 

NPALETTE7 , 22 : PALETTE 5 , 22 : PALETTE 

0,48: PALETTE1 ,32: PALETTE8 ,38: PAL 

ETTE10 , 6 : PALETTE15 , 48 : PALETTE14 , 

32:GOTO250 

240 PALETTE 7, 38: PALETTE 5, 38: PALE 

TTE0 ,63: PALETTE 10 , 3 3 : PALETTE 1,56 

: PALETTE8 ,51: PALETTE 15 , 83 : PALETT 

E14,56 

250 X=3:Y=4 

260 HPUT(X*32+38,Y*24+4)-(X*32+5 

7,Y*24+20) ,l,NOT:HPUT(X*32+38, Y* 

24+4)-(X*32+57,Y*24+20) ,l,NOT 

270 IFSO=1THENGOSUB3 60ELSEA$=INK 

EY$ : IFA$=" "THEN2 60 

280 PLAY"05T255CD" 

290 IFA$="S"ORA$="s"THENSO=l 



300 IFA$=" A "THENIFY>0THENY=Y-1EL 

SEY=7 

3 10 IFA$=CHR$ ( 10 ) THENIFY<7THENY= 

Y+1ELSEY=0 

3 20 IFA$=CHR$ ( 8 ) THENIFX>0THENX=X 

-1ELSEX=7 

3 30 IFA$=CHR$(9)THENIFX<7THENX=X 

+1ELSEX=0 

3 40 IFA$=CHR$(13)THENIFGD(X,Y)=0 

THENGOSUB480ELSEGD (X, Y) =0 : NQ=NQ- 

l:HCOLORHPOINT(X*32+32,Y*24+l) :H 

LINE(X*32+32,Y*24+1)-(X*32+61,Y* 

24+23) ,PSET,BF 

3 50 GOTO2 60 

3 60 IFGD(SX,SY)THENREADSX,SY:GOT 

03 60 

370 FORI=0TO7:IFGD(I,SY)THENFL=1 

:XC=I 

380 NEXT:IFFL=0THEN410 

390 FL=0:IFX<XC THENA$=CHR$ (9) :R 

ETURNELSEIFX>XC THENA$=CHR$ ( 8 ) : R 

ETURNELSEIFY>SY THENA$= ,,/V " :RETUR 

NELSEIFY<SY THENA$=CHR$ (10) :RETU 

RN 

400 A$=CHR$ ( 13 ): RETURN 

410 FORI=0TO7:IFGD(SX,I)THENFL=1 

:YC=I 

420 NEXT:IFFL=0THEN450 

430 FL=0:IFY<YC THENA$=CHR$ ( 10 ) : 

RETURNELSEIFY>YC THENA$=" A " : RETU 

RNELSEIFX>SX THENA$=CHR$ (8) :RETU 

RNELSEIFX<SX THENA$=CHR$ (9) :RETU 

RN 

440 A$=CHR$ ( 13 ): RETURN 

450 IFX<SX THENA$=CHR$ (9) : RETURN 

ELSEIFX>SX THENA$=CHR$ (8) : RETURN 

ELSEIFY<SY THENA$=CHR$ (10) :RETUR 

NELSEIFY>S Y THENA$=" A " : RETURN 

460 A$=CHR$ ( 13 ): RETURN 

470 GOTO3 60 

480 1=0 

490 IFGD(X,I)ANDSO=0THEN570 

500 IFGD(I,Y)ANDSO=0THEN570 

510 IFY-X+K0ORY-X+I>7THEN530 

520 IFGD(I,Y-X+I)ANDSO=0THEN570 

530 IFY+X-K0ORY+X-I>7THEN550 

540 IFGD(I,Y+X-I)ANDSO=0THEN570 

550 1=1+1 :IFK8THEN490 

560 GD(X,Y)=1:HPUT(X*32+32,Y*24+ 

l)-(X*32+62,Y*24+23) ,l,OR:NQ=NQ+ 

1 : IFNQ=8THENHCOLOR15 : HPRINT (16,1 

6) , "You win! " : PLAY"CDFGFGFDCGFDC 

GD" : FORI=0TO5000 : NEXT : GOTO580 

570 RETURN 

580 POKE&HFFD8 , : IFM$="r"ORM$="R 

"THENRGBELSECMP 

590 DATA2, ,1,2, ,4,4,1,7,3,6,5,5, 

7,3,6 /R\ 
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CoCo3 



Screen 
Dump 
Extraordinaire 



By H. Allen Curtis 




Figure 1: Upright Image of Test Screen 

30 THE RAINBOW October 1987 



One of my greatest needs after 
purchasing a CoCo 3 was a fast, 
high resolution graphics screen 
dump. Because my printer offers many 
graphics options, I wanted a screen 
dump that could handle a variety of 
control codes. In writing a screen dump 
program to meet my own needs, I 
realized that my finished product could 
be readily adaptable to work with many 
other makes of dot matrix printers. 

My screen dump, called 5CRNDMP, is 
shown in Listing 1. It prints a 640-by- 
384 dot image of a Mode 1 or Mode 3 
high resolution graphics screen. Each 
dot appearing vertically on the screen is 
printed twice to match more closely the 
CoCo 3 scaling of the graphics screen. 
Because some printers won't support 
640 dots across the page, I wrote a 
second screen dump, called SCRNDP1PS, 
which is Listing 2. SCRNDMPS provides 
a sideways view of a Mode 1 or Mode 
3 screen, a 384-by-640 dot image. 

There's one restriction common to 
both 5CRNDMP and SCRNDMPS: They can 
be used only with printers that can print 
a column of eight dots at each print 
position as the print head moves across 
the page. Having a Radio Shack LPVII 
for a backup printer, 1 knew that it and 
LP V 1 1 1 can only print graphics columns 
seven dots high. Therefore, I wrote a 
third screen dump specifically for those 
two printers; it's called LP7BDMP5 and 
is shown in Listing 3. Like SCRNDMPS, 
it yields a 384-by-640 dot image of a 
Mode 1 or Mode 3 screen. 

LP7BDMPS also works with the Radio 
Shack DMP-200 printer. For a well- 
proportioned printed image, the DMP- 
200's elongated print mode should be 
used. Deleting the apostrophe from 
Line 45 of Listing 3 allows a proper 
"elongated" screen dump for the DMP- 
200. Just send the elongation control- 
code before running the program. If you 
have some other Radio Shack printer, 
you may find that LP78DMP5 will also 
work for it. 

H. Allen Curtis lives in Williamsburg, 
Virginia. He is interested in 17th and 
18th century history and enjoys biking 
through the colonial capital. He balan- 
ces past and present with his computer 
work. 



All three screen dumps contain pokes 
of data values to CoCo 3's memory. A 
typing error associated with a poke 
address could lead to a program self- 
destruct situation. Therefore, it's advis- 
able to save the typed screen dump 
before running it. When you do run it, 
you may be greeted with either an OD 
Error message or a Data Error message. 
The omission of one or more data 
values or of one or more commas in a 
DATA statement (lines 400 to the end of 
each listing) is a likely cause of an OD 
Error. Typing one or more data values 
incorrectly will cause the appearance of 
the Data Error message. 

For your initial use of SCRNDMP or 
5CRNDMP5, have your printer manual 
handy. You'll need to consult the man- 
ual to determine ASCII control code 
sequences that these two programs 
require. Through a series of prompting 
messages, each of these programs will 
tell you what kinds of control code 
sequences are needed and what their 
purposes are. Additionally, editing lines 
320 through 350 of either of these two 
programs lets you take any of four 
different options. 

In brief, the four options are as 
follows: 



1) Reverse dot in eight-dot column. 

2) Allow negative image. 

3) Set line feed. 

4) Set baud. 

The first option means that a printer, 
in producing a column of eight dots, 
responds to an eight-bit character code. 
Usually the top through bottom dots 
printed correspond to the highest 
through lowest bit positions, respec- 
tively, of the associated character code. 

Some printers require codes whose 
low to high bit positions cause the 
printing of the top to bottom dots. The 
option associated with Line 320 allows 
the reversal of the bit structure of the 
codes for eight-dot columns. 

The second option permits the print- 
ing of a negative, rather than a positive, 
image of the Hi-Res graphics screen. 

Some printers provide an automatic 
line feed with every carriage return. 
Other printers don't. The third option 
is a necessity for printers that do not 
have one. 

The CoCo 3 sets the rate at which it 
sends information to the printer at 600 
baud. If your printer accepts informa- 
tion at a higher rate, you may want to 
take the fourth option. 




Each of the options is taken by merely 
deleting the first apostrophe in its 
associated line 320, 330, 340 or 350. 
The baud-setting option of Line 350 
requires one further change. You must 
replace the question mark in the poke 
command with a number. The number 
should be 41, 18 (6 or 7) or I for baud 
rates of 1200, 2400, 4800 or 9600, 
respectively. 

Listing 4 shows a program that pro- 
vides a Mode 3 graphics screen suitable 
for testing the operation of each of the 
three screen dumps. The graphics screen 
consists of patterns of numbers and 
letters accompanied by a circle within a 
large ellipse. A bordering rectangle 
encloses all of this. 

For printers that can print eight-dot 
columns, try 5CRNDMPS first. If your 
printer needs a reversed eight-dot col- 
umn and you do not take the first 
option, then the numbers and letters 
will be printed as mirror images of those 
on the test screen. Thus, for your first 
run of SCRNDMPS, print the test screen 
to determine whether you need to take 
the first option. 

Use of LP78DMPS does not require 
any consultation of your printer man- 
ual. It also doesn't offer any options and 
doesn't set the baud rate: You must do 
this prior to running LP78DMPS. 



Each of the basic programs gener- 
ates and executes a machine language 
routine that does the actual screen 
dumping. These routines are stored and 
executed from the low resolution graph- 
ics screen area of CoCo 3. 

If you have a disk system. Line 370 
of each of the three BASIC screen dumps 
allows you to save the associated ma- 
chine language routine. Merely delete 
the apostrophe in Line 370. 1 hen when 
the program has completed a screen 
dump, the associated machine language 
routine will be saved on disk. Later, the 
saved machine language screen dump 
routine can be loaded and executed by 
employing one of the following com- 
mand sequences: 



L0P.Df1"SCRNDMP":EXEC 
L0ADM"SCRNDMP5 " : EXEC 
L0P,DM"LP78DMPS~:EXEC 



By deleting the apostrophes in lines 
380 and 390 of the BASIC screen dumps, 
you can save the associated machine 
language routines on cassette tape. 
Each of these machine language screen 
dumps can later be loaded and executed 
by typing CLOADMiEXEC after you have 
positioned the tape appropriately. D 
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....153 

180 143 

280 213 

380 97 

560 209 

END 150 



Listing 1: SCRNDMP 

5 '*** SCRNDMP *** 
By H. Allen Curtis 
Copyright 1987 
10 X=&H1200:WIDTH40 
20 FOR I=0TO23:READ D:POKEX+I,D: 
NEXT 

30 FOR 1=2 4T0299 :READ D$:D=VAL(" 
&H"+D$) :C=C+D:POKEX+I,D:NEXT 
40 IFC=30030THEN50ELSELOCATE14,4 
: PRINT" DATA ERROR" : STOP 
50 CLS2:LOCATE4,4:PRINT"Have you 
customized SCRNDMP to suit you 
r printer? <Y/N> "j 
60 K$=INKEY$ : IFK$=" "THEN60ELSEIF 
K$="Y"THEN280 

70 LOCATE4,7:PRINT"Consult your 
printer manual to find ASCII co 
des for setting an 8 dot line 
spacing. If your printer only h 
as an 8 dot line spacing for gra 
phics, then look for a code 
or codes to turn on graphics 

80 PRINT" As an example, one 
printer uses the ESCape code 27 
, followed by 65 (the ASCII 
code for A) , followed by 8 (the 

dot spacing) . For this code s 
equence you would type 27,65,8 
Now, type the sequence for y 
our printer: " ; 
90 LINEINPUTQ$ 

100 C$=Q$:K=1:Z$=",0":L1$="400 D 
ATA " 

110 IFINSTR (C$ , " , " ) =0THEN120ELSE 
C$=RIGHT$ ( C$ , LEN (C$) -INSTR (C$ , » , 
") ) :K=K+1: GOTO 110 

120 L1$=L1$+STR$ (K) +" , »+Q$ : FORJ= 
1T07-K: L1$=L1$+Z$ : NEXT 
130 CLS5:LOCATE4,4:PRINT"Next, f 
ind the ASCII codes for se 
tting the desired graphics mode 
and the number of dots per lin 
e. SCRNDMP requires 640 dots 
per line. 
140 PRINT" As an example, one 



") ) :K=K+l: GOTO 180 

printer uses the sequence 27,4 
2,4,128,2 where the codes 128 a 
nd 2 represent 128 + 2*256 = 640 

dots per line. 
150 PRINT" Now, type your cod 
e sequence. Remember to i 

nclude commas between codes 

ii • 

. / 

160 LINEINPUTQ$ 
170 C$=Q$:K=1:L2$="410 DATA " 
180 IFINSTR (C$ , " , " ) =0THEN190ELSE 
C$=RIGHT$(C$,LEN(C$) -INSTR(C$, ", 

190 L2$=L2$+STR$ (K) +" , "+Q$ : FORJ= 

1T08-K: L2 $=L2 $+Z $ : NEXT 

200 CLS 3: LOCATE 4, 4: PRINT "Look up 

the code sequence to turn of 
f graphics and return to the tex 
t mode. The example printer 

uses the code sequence 27,6 
4 which resets the printer to 

its power-up state. 

210 PRINT" Type the correspon 

ding sequence for your printer. 
ii . 

220 LINEINPUTQ$ 

2 30 C$=Q$:K=1:L3$="420 DATA " 

240 IF INSTR(C$,",")=0THEN250ELS 

EC$=RIGHT$(C$, LEN (C$) -INSTR (C$," 

,'»)) :K=K+1:GOTO240 

250 L3$=L3$+STR$ (K) +" , "+Q$ :FORJ= 

1T06-K:L3$=L3$+Z$:NEXT 

2 60 CLS 6 : LOCATE4 , 4 : PRINT " Customi 

ze SCRNDMP by EDITing lines 40 

0, 410, and 420 to: " : LOCATE4 , 9 :P 

RINTL1$ : L0CATE4 , 11 : PRINTL2$ : LOCA 

TE4 , 13 : PRINTL3 $ : PRINT 

270 PRINT: PRINT: PRINT" If you 

have not already done so, E 
DIT lines 320-350 to take option 
s you want.": PRINT: PRINT" 

Then rerun SCRNDMP. " : LOCATE0, 
22: END 
2 80 CLS5:LOCATE4,8:PRINT"Is your 

printer ready? <Y/N> ■•; 
290 K$=INKEY$ : IFK$=""THEN290ELSE 
IFK$="Y"THEN300ELSELOCATE2 , 10 : PR 
INT"Ready your printer and rerun 

SCRNDMP . " : LOCATE0 ,22: END 
300 CLS5:LOCATE4,8:PRINT"Do you 
have a mode 1 or 3 screen re 
ady to dump? <Y/N> "; 
3 10 K$=INKEY$ : IFK$=" "THEN3 10ELSE 
IFK$="Y"THEN320ELSELOCATE4, 12: PR 
INT"Run a program to generate th 
e desired screen. Then r 
eload SCRNDMP and run it.":LO 
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MOW Your Computer Writes 
PROGRAMS for YOU with 
QUIKPRO+II 

In minutes even if you know nothing about programming! 
For COCO, IBM, Tandy, Apple, Commodore, and others. 





To Computer Users. 
Now you can tell your computer what you want and your computer 
can write your programs for you in minutes to your custom design — easily and without 
reguiring any programming Packground from you... with QUIKPRO + II. 

A Breakthrough In Micro Computer Technology 

You know your computer is fantastically fast. ..once it knows what to do. Programs 
and software are what makes it happen. Every task your computer performs for you 
reguires some kind of program, Until now, you could only get programs in just one 
of two ways: buy a canned package that many times doesn't meet your needs 
or hand over hundreds or thousands of dollars for a custom programming job. 
Now, you have a better choice... 

Programs Without Programming 

Automatic programming is what it's all about. And, with QUIKPRO + II the 
Automatic Program Writer, your computer can actually write programs 






for you. You can guickly generate a new individual application 
program when you want it with QUIKPRO+II. Each program you 
create is a completely stand alone program that will run in the 
standard BASIC language you already have on your own 
computer, QUIKPRO + II creates filing, data retrieval, and report 
programs. Best of all, you do not have to become a 
programmer to use QUIKPRO + II. The QUIKPRO + II software 
becomes your personal progrcmmer, waiting to do your 
work for you any time of the day or night you choose to use it. 



Proven and Widely Used 

Businesses, Schools, Hobbyists and Government are among our thousands of users. 



John Hopkins 

U.S. Department of 

Agriculture 
Proctor & Gamble 
Federal Express 
American Express 
Monsanto 

Ford Motor Company 
Duracell International 



NASA 

Westinghouse 

U.S. Navy 

NCR 

DuPont 

RCA 

Exxon 

AT&T 

Texas Tech 



General Electric 
Random House 



Tandy Corporation 
Satellite Broadcasting 



r 



CERTIFICATION 
SEAL 



APPLICATION CHECKLIST 

Here are a few of the thousands of possible applications 
you can do with QUIKPRO + II. ..And most can be created in 
a few minutes. 



BUSINESS USES 

Customer Filing 

Master Files for 

General Ledgers 

Accts. Receiv. 

Accts. Payable 

Telephone Logs 

Telephone Lists 

Hotel/Travel Data 

Reservations 

Property Control 

Library Catalogues 

Inventories 



EDUCATIONAL USES 

Student Records 

Grade Records 

Teacher Lists 

School Lists 

Program Design 

Course Design 

HOME & HOBBY USES 

Personal Records 

Check Lists 

Club Rosters 

Telephone Directories 

Recipe Files 



^a 



ORDER NOW - OVER Y 2 OFF 

CALL TOLL FREE 24 HOURS 
1-800-872-8787, Operator 610 

(From Georgia Call 1-800-874-5112, Operator 610) 

YES, send me QUIKPRO + II for $29.50 plus 
S4.50 shipping & handling S34.00 total. 
SAVE OVER Vi OFF the reg. S-149 price. 

Check your computer type & payment 



] Color Computer 
2 or 3 with Disk 
] TANDY 1000. 1200. 3000 
] IBM/Compatible 
] Commodore 64 
) Apple 2. 2C. 2E 
] TRS-80 Mod 3 
J TRS-80 Mod 4 
] TRS-80 Mod 2 



[ ] Payment enclosed 

[ ] MasterCard [ ] VISA 

Card * 



Expiration Date 



Address . 



City'State/ZIp 



Mail Orders to: 



ICR FutureSoft, P.O. Box1446-JC 
Orange Park, FL 32073 






Unbeatable Prices from Howard Medical Computer 
Star NX-10 Print er Only $238 

EPSON 




disk NEW FROM J&M 

CONTROLLER 

The DC-4 is a scaled-down version of the popular DC-2 
without a parallel port. It includes a switch with 2 ROM 
sockets, JDOS, manual and such features as gold connec- 
tors and metal box. It accesses double sided drives and ac- 
cepts RSDOS 1.1 for Radio Shack compatability. 



cepts Hsuoa 

$65 



DC-4 with memory minder 
($2 shipping) 




RS DOS ROM CHIP 



ROM chip fits inside disk controller. 24 pin fits both J&M 
and RS controller Release 1.1. For CoCo 3 Compatability. 



$20 



each 



Reg. S40 
($2 shipping) 



DISK DRIVE SPECIALS 



UTll V t V Howards Drive gives you a 

DD-3 MPI drive, a CA-1 cable and a J&M DC-4 Disk Controller 
tor only. Add S34 tor a Disto DC -3 replacement. ($5 shipping) 

DOUBLE SIDED 
DOUBLE DENSITY 
360K 



$17845 



Separate Disk Drive Components 

DD-3 An MPI 52 double-sided, double density, 360K disk 
drive in a full height case and heavy-duty power supply. 



(«5 shipping) 




DD-2 A TEAC 55B Vz height, double density, 360K disk 
drive in a '/i height case and heavy-duty power supply. 



5188 



( s 2 shipping) 



WK 



TEAC 55B bare drive, Vi height, double-sided, double density with 
all mounting hardware, needs CA-2 below lo fil R.S. 501. 



$118 



SP-C 

Serial lo parallel converter converts the CoCo 4 pin serial output to run 
a parallel printer like Star or Epson. Includes all cables. Add $10 for 



modem attachment. 



($2 shipping) 



$68. 45 



CA-1 Cable that connects the disk controller to the drive. 



$2495 

One Drive 



CA-2 



$2995 

Two Drive 



GUARANTEE ■ — Howard Medical's 30-day guarantee 
is meant to eliminate the uncertainty of dealing with a com- 
pany through the mail. Once you receive our hardware, try 
it out, test it for compatibility. If you're not happy with it for 
any reason, return it in 30 days and we'll give you your 
money back (less shipping). 



LX-86 $238 

($5 shipping) 

with FREE 

sheet feeder 

SF-1 sheet feeder for Aaa qe "^^ 

LX-80, LX-86, or LX-90 JJ>OiJ. -—. 




Star NX-10 Only $238 



WORD PACK RS 



This ROM pack is the hardware answer for an 80 column 
display. It includes a built-in video controller to drive a 
monochrome monitor like our 123A. To get started, you need 
OS-9 2.0, a Y-cable or multipack interface drive 0, and a 
monochrome monitor. fc A f\ 

($2 shipping) *45J («2 shipping) 

While supplies last 
New basic driver runs word pack without 
need for an OS-9. 



niuiiutiiiuiiic 






$10 




MONITORS 

SonyKV-1311CR $449 



• Vivid Color 

• Vertically flat 13" screen 

• Monitor/Trinitron TV with remote control 

• 640 X 240 resolution at 15MHZ - 37 Dot 

• RGB analog & digital, TTL: composite input 

• Cable to CoCo 3 

• VCR inputs $36 



($15 shipping) 




Zenith 1220A $125 

tipping) 



12" Amber screen 

640 X 240 resolution at 15MHZ 



( s 7 shipping) 



Lets the graphic capabilities 
of your CoCo EXPLODE 



COCO $70 45 
MAX II "* 

U* jm f\ /tR Needed lo connect CoCo 
Y CABLE ^nl5y ^*" Max and disk drive at same 

MAX C Jg* #% Three sets include 72 different 

FONTS t30 fonts for ,v P eset,in 9 

COLORING $4 5 
BOOK M 



Twenty-two pictures of clip-art 

by Glenside Color Computer Club 



($2 shipping for each product) 



Howard Medical Computers 1690 N. Elston Chicago, IL 60622 




OHDEH5 



(800) 443-1444 



ORDER STATUS 

(312) 278-1440 












OR ( 



Shipping charge! 'ales 

inoda order . 



CATE0,22:END 


4 60 DATA 


34 


flj3 


,30,8C,D9,20,E3 


320 'POKEX+276,3 3 'REVERSE DOTS 


4 70 DATA 


E6 


,80 


,A6,80,BD,A2,85,5A 


IN 8 DOT COLUMN 


,26,F8,39 






3 30 'POKEX+2 9 6,67 "NEGATIVE IMAG 


480 DATA 


C6 


,12 


,D7,96,C6,FE,D7,6F 


E 


,8D,C9 








340 'POKEX+46,189 'SET LINE FEED 


490 DATA 


IF 


52 


,31,A8,AD,1E,42,8E 


3 50 'POKEX+70,? :X=X-4 'SET BAUD 


,70,71 








3 60 EXECX+73 


500 DATA 


BF 


FF 


A2,CE,40,0,C6,30, 


370 ' SAVEM"SCRNDMP" , &H1200 , &H132 


D7,52 








B ; X+73 


510 DATA 


C6 


50 


D7,51,8D,B9,8D,38 


3 80 'CLS3 :MOTORON:LOCATE4, 4:PRIN 


,8D,3E 








T"Position tape for recording.": 


520 DATA 


8D 


44 


8D,4B,8D,53,8D,5C 


PRINT" Then press any key.":G 


,8D, 66 








0SUB3 90 : MOTOROFF : ATTR5 , 6 : PRINT" D 


530 DATA 


8D 


71 


8D,7D,33,41,A,51, 


epress recorder buttons PLAY and 


26, E8 








RECORDand then press any key."; 


540 DATA 


33, 


C9 


0,F0,A,52,26,DA,8 


:GOSUB390:CSAVEM"SCRNDMP",&H1200 


E,7A,7B 








,&H132B,X+73:END 


550 DATA 


BF ( 


FF 


A2,1E,42,8D,A0,86 


390 ' K$=INKEY$ : IFK$=" "THEN390ELS 


,D 








ERETURN 


560 DATA 


BD, 


A2 


85,86,A,BD,A2,85, 


400 DATA 3,27,65,8,0,0,0,0 


F,6F,39 








410 DATA 5,27,42,4,128,2,0,0,0 


570 DATA 


BD, 


A2 


85,1F,31,4F,C6,4, 


420 DATA 2,27,64,0,0,0,0 


D7,50,39 








430 DATA 34,10,30,8C,E3,8D,1B,35 


580 DATA 


E6, 


84 


8D, 58, 26, FA, 20, 61 


,10,39 


,E6,84 








440 DATA 34, 10, 30, 8C, El, 86, D 


590 DATA 


58, 


8D 


4F,26,F9,20,58,E6 


450 DATA BD,A2,85,86,A,8C,A2,85, 


,84,58,58 






20, EA 


600 DATA 


8D, 


45 


26,F8,20,4E,E6,84 




nil it o*"— •*"**«» <c*_ • tOffZ c 

*— \j •— *J » II Km *— C Zf Z • • j » In. I C — • 




DISH DRkUES 

NEW-4 DRIVE SYSTEM I.Z DSDD DRIVES ACCESSED 

UNDER RS DOS)* -1379.35 
£ DRIVE SYSTEM *•<£ DSDD DRIVES IN ONE CASE) 

1329.95 

DRIVE 1 UPGRADE <1 DSDD UPGRADE FOR YOUR 

£6-3129-3131, OR 313E-J119.95 PLEASE 

SPECIFY CATALOG NUMBER WHEN ORDERING ! ! 

DRIVE 0-SSDD F,-H DRIVE X-J199.95 

DRIVE 1-SSDO FxH DRIYE CUSE W.-EXISTING DRCO 

*1£5.95 



X- INCLUDES EITHER R.S. OR DISTO CONTROLLER 



CDCD 3 

S1£K UPGRADE-H09.95 TECH MAMUAL-»£9.95 
RAM DISK A DIAGNOSTICS -J19.9S 
MONITOR CONNECTOR FOR CM-S -S4.D& 

OTHER STUFF 

MONITOR INTERFACE -i£9.9S AD0S-SE9.95 

KEYB0ARDS-*2-».95 ADAPTERS-I3.95 
SERIAL TO PARALLEL CONVERTERS -f.-M.95 
NEW — EPSON LX-SOO PRINTER 160 CPS DRAFT.' 
3GCPS NLO— TRACTOR INCLUDED ONLY S 189.95 
FULL LINE OF EPSON PRINTERS IN STOCK ! ! ! 
CALL FOR BEST PRICES Vfi 



Ifiis Ubjuiipu&r (Sufis 1 

5512 POPLAR MEMPHIS, TN 38119 901-761-4565 

ADD J-4.90 FOR SHIPPING AND HANDLING. VISA-MC A MONEY ORDERS ACCEPTED. 
ALLOW 3 WEEKS FOR PERSONAL CHECKS.- NO CODS. PRICES MAY CHANGE WITHOUT NOTICE 
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,58 


,58,58 
















610 


DATA 


8D 


3A 


,26 


,F7 


20 


43 


,E6, 


84 


,58 


58 


















62J3 


DATA 


58, 


58 


8D 


2E, 


26, 


F6 


20, 


37 


,E6 


84 


















630 


DATA 


58, 


58 


58 


58 


58, 


8D 


21, 


26 


,F5, 


20, 2A 
















640 


DATA 


E6, 


84 


58 


58, 


58, 


58 


58, 


58 


,8D, 


13 


















650 


DATA 


26, 


F4 


20 


1C, 


E6, 


84 


58, 


58 


,58, 


58 


















660 


DATA 


58, 


58 


58 


8D, 


4,26,F3,2 


0, 


D,48,48 


















670 


DATA 


58, 


24 


2,8A,Z 


,30, 


,A 


,50, 


39 


















680 


DATA 


20, 


12, 


48, 


56, 


48, 


56, 


48, 


56 


,48, 


56,4S 


,56 
















690 


DATA 


48, 


56 


48, 


56, 


48, 


56, 


IF, 


98 


,12, 


16,FF,74 

















y/ 

' 90 .... 


....43 


180 ... 


....65 


280 ... 


....13 


380 .. . 


...137 


END 


141 





Listing 2: SCRNDMPS 

5 '*** SCRNDMPS *** 
By H. Allen Curtis 
Copyright 1987 
10 X=&H1200:WIDTH40 
20 FOR I=0TO2 3:READ D: POKEX+I , D: 
NEXT 

30 FOR I=24T0192:READ D$:D=VAL(" 
&H"+D$) :C=C+D: POKEX+I, D: NEXT 
40 IFC=19727THEN50ELSELOCATE14,4 
: PRINT" DATA ERROR" : STOP 
50 CLS2:LOCATE4,4:PRINT"Have you 
customized SCRNDMPS to suit you 
r printer? <Y/N> " ; 
60 K$=INKEY$ : IFK$=" "THEN60ELSEIF 
K$="Y"THEN280 

70 LOCATE4,7:PRINT"Consult your 
printer manual to find ASCII co 
des for setting an 8 dot line 
spacing. If your printer only h 
as an 8 dot line spacing for gra 
phics, then look for a code 
or codes to turn on graphics 

80 PRINT" As an example, one 
printer uses the ESCape code 27 



, followed by 65 (the ASCII 
code for A) , followed by 8 (the 

dot spacing) . For this code s 
equence you would type 27,65,8 

Now, type the sequence for y 
our printer: " ; 
90 LINEINPUTQ$ 

100 C$=Q$:K=1:Z$=",0":L1$="400 D 
ATA " 

110 IFINSTR (C$ , " , " ) =0THEN120ELSE 
C$=RIGHT$(C$,LEN(C$)-INSTR(C$,", 
") ) :K=K+1: GOTO 110 

120 L1$=L1$+STR$ (K) +" , "+Q$ : FORJ= 
1T07-K: L1$=L1$+Z$ : NEXT 
130 CLS 5: LOCATE 4, 4: PRINT "Next, f 
ind the ASCII codes for se 
tting the desired graphics mode 
and the number of dots per lin 
e. SCRNDMPS requires 3 84 dots 
per line. 

140 PRINT" As an example, one 

printer uses the sequence 27,7 

5,128,1 where the codes 128 a 

nd 1 represent 128 + 1*256 = 384 

dots per line. 
150 PRINT" Now, type your cod 
e sequence. Remember to i 

nclude commas between codes 

ii . 
■ , 

160 LINEINPUTQ$ 

170 C$=Q$:K=1:L2$="410 DATA " 

180 IFINSTR ( C$, ", ")=0THEN190ELSE 

C$=RIGHT$ (C$ , LEN (C$) -INSTR (C$ , " , 

") ) :K=K+1:GOTO180 

190 L2$=L2 $+STR$ (K) +" , "+Q$ : FORJ= 

1T08 -K : L2 $=L2 $+Z $ : NEXT 

200 CLS3:LOCATE4,4:PRINT"Look up 

the code sequence to turn of 
f graphics and return to the tex 
t mode. The example printer 

uses the code sequence 27,6 
4 which resets the printer to 

its power-up state. 

210 PRINT" Type the correspon 

ding sequence for your printer. 
ii • 

220 LINEINPUTQ$ 

2 30 C$=Q$:K=1:L3$="4 20 DATA " 

240 IF INSTR(C$,",")=0THEN250ELS 

EC$=RIGHT$(C$,LEN(C$)-INSTR(C$," 

,") ) :K=K+1:GOTO2 40 

250 L3$=L3$+STR$ (K) +" , "+Q$ : FORJ= 

1T06-K:L3$=L3$+Z$:NEXT 

2 60 CLS6 : LOCATE4 , 4 : PRINT"Customi 

ze SCRNDMPS by EDITing lines 40 

0, 410, and 4 20 to: " : LOCATE4 , 9 : P 

RINTL1$ : LOCATE4 , 11 : PRINTL2 $ : LOCA 

TE4, 13:PRINTL3$ 

270 PRINT: PRINT: PRINT" If you 
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S culptor 



40 times faster than other 

4th. generation languages. 




Easy to learn. 

80% Reduction in development time. 

Reliable proven software - in use by over 

30,000 programmers in 34 countries worldwide. 

Works with MS-DOS, Unix, Xenix, VMS, OS9, QNX and more. 

100% Portable to over 90 machines - Micros to Mainframes. 

OS9 LEVEL II SPECIAL $295 



FHL 

Frank Hogg Laboratory, Inc. 
770 James St. - Syracuse, NY 13203 - 315/474-7856 TELEX 646740 - Since 1976 



have not already done so, E 
DIT lines 320-350 to take option 
s you want.": PRINT: PRINT: PRINT" 
Then rerun SCRNDMPS.":L 
OCATE0,22:END 
280 CLS5:LOCATE4,8:PRINT"Is your 

printer ready? <Y/N> " ; 
290 K$=INKEY$ : IFK$=" "THEN290ELSE 
IFK$="Y"THEN300ELSELOCATE2 , 10 : PR 
INT"Ready your printer and rerun 

SCRNDMPS . " : LOCATE0 ,22: END 
300 CLS5:LOCATE4,8:PRINT"Do you 
have a mode 1 or 3 screen re 
ady to dump? <Y/N> " ; 
3 10 K$=INKEY$ : IFK$=" "THEN3 10ELSE 
IFK$=" Y"THEN3 20ELSELOCATE4 , 12 : PR 
INT"Run a program to generate th 
e desired screen. Then r 
eload SCRNDMPS and run it.":LO 
CATE0,22:END 

320 'POKEX+77,3 3 'REVERSE DOTS I 
N 8 DOT COLUMN 

3 30 'POKEX+97,67 'NEGATIVE IMAGE 
340 'POKEX+101,189 'SET LINE FEE 
D 

350 'POKEX+131,18 :X=X-4 'SET B 
AUD 

360 EXECX+134 

370 'SAVEM" SCRNDMPS", &H1200, &H12 
C0,X+134 

3 80 'CLS3:MOTORON:LOCATE4,4:PRIN 
T"Position tape for recording.": 
PRINT" Then press any key.":G 
0SUB3 90 : MOTOROFF : ATTR5 , 6 : PRINT " D 
epress recorder buttons PLAY and 

RECORDand then press any key."; 
: G0SUB3 90 : CSAVEM" SCRNDMPS " , &H120 
0,&H12C0,X+134:END 

390 'K$=INKEY$:IFK$=""THEN390ELS 
ERETURN 

400 DATA 3,27,65,8,0,0,0,0 
410 DATA 4,27,75,128,1,0,0,0,0 
420 DATA 2,27,64,0,0,0,0 
430 DATA 34,10,30,8C,E3,8D,11,35 
,10,39 

440 DATA 34,10,30,8C,E1,20,F4 
450 DATA 34,10,30,8C,E3,20,ED 
460 DATA E6,80,A6,80,BD,A2,85,5A 
,26,F8,39 

470 DATA A6,84,8D,E,BD,A2,85,BD, 
A2,85,30,88,B0,A,50,2 6,EF,39 
480 DATA 20,12,48,56,48,56,48,56 
,48,56,48,56 

490 DATA 48, 56,48, 56, 48, 56, IF, 98 
,12,39 

500 DATA 86,A,8C,A2,85,86,D,BD,A 
2, 85, C6, 7,86, 20 
510 DATA BD,A2,85,5A,26,F8,8D,A9 



, 3 3 , 4 1 , IF , 3 1 , C6 , C0 , D7 , 50 , 3 9 

520 DATA C6,12,D7,96,C6,FE,D7,6F 

,8D,8C 

530 DATA 1F,52,31,A9,FF,70,1E,42 

,8E,70.^1 

540 DATA BF,FF,A2,CE,7B,AF,C6,50 

,D7,51 

550 DATA 8D,C0,8D,96,A,51,26,F8, 

8E,7A,7B 

560 DATA BF,FF,A2,1E,42,17,FF,75 

,86,D,BD,A2,85 

570 DATA 86,A,BD,A2,85,F,6F,39 



"tyf 440 201 

j 570 102 

I END 218 



Listing 3: LP7BDMPS 

5 '*** LP78DMPS *** 
By H. Allen Curtis 
Copyright 1987 
10 X=&H1200:WIDTH40 
30 FOR I=0TO3 24:READ D$:D=VAL("& 
H"+D$ ) : C=C+D : POKEX+I , D : NEXT 
40 IFC=37030THEN45ELSELOCATE14,4 

: PRINT "DATA ERROR" : STOP 

45 'POKE&H129B,32:POKE&H129C,8:R 

EM DELETE APOSTROPHE FOR ELONGAT 

ED USE 

50 EXECX+183 

370 'SAVEM"LP78DMPS",&H1200,&H13 

44,&H12B7 

380 'CLS3:MOTORON:LOCATE4,4:PRIN 

T"Position tape for recording.": 

PRINT" Then press any key.":G 



Mouse Tales by Logan Ward 
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OSUB390:MOTOROFF:ATTR5,6:PRINT"D 
epress recorder buttons PLAY and 
RECORDand then press any key."; 
:GOSUB390:CSAVEM"LP78DMPS",&H120 
0,&H1344,&H12B7:END 
390 'K$=INKEY$:IFK$=""THEN390ELS 
ERETURN 

400 DATA E6,84,8D,57,20,64,E6,84 
,57,46 

410 DATA E6,1,8D,4F,20,5A,E6,84, 
58,58,58 

420 DATA 58,58,58,8D,4B,E6,1,8D, 
41,2J3,4A 

430 DATA E6, 84, 58, 58, 58, 58, 58, 8D 
,3A,E6,1 

440 DATA 8D,34,20,3B,E6,84,58,58 
,58,58 

450 DATA 8D,2A,E6,1,8D,28,20,2D, 
E6,84,58 

460 DATA 58 , 58 , 8D, IB, E6 , 1 , 8D, ID, 
20,20 

470 DATA E6,84,58,58,8D,D,E6,1,5 
8,46,20,14 

480 DATA E6, 84,58, 20, A7, 58, 46, 58 
,46,58,46 

490 DATA 58,46,58,46,58,46,58,46 
,39,46 

500 DATA 8A,80,BD,A2,85,BD,A2,85 
,A,50,39 

510 DATA 8D,39,8D,86,26,FA,8D,13 
,8D,31,8D,84 

520 DATA 26,FA,33,41,8D,9,8D,27, 
8D,84 

530 DATA 26, FA, 33, 41, 39, 86, D,BD, 
A2,85,86 

540 DATA 1E,BD,A2,85,C6,7,86,20, 
BD,A2,85 

550 DATA 5A,26,F8,86,12,BD,A2,85 
,1F,31 

560 DATA C6,C0,D7,50,39,30,89,FF 
,B0,4F,39 

570 DATA C6,FE,D7,6F,8D,D4,1F,52 
,31,A9 

580 DATA FF,3F,12,1E,42,8E,70,71 
,BF,FF,A2 

590 DATA CE,7C,0,1F,31,CC,C0,B,D 
D,50 

600 DATA 8D,9E,8D,B7,8D,D5,17,FF 
,41,26,F9 

610 DATA 33,41,8D,AC,8D,CA, 17, FF 
,45,26,F9 

620 DATA 33,41,8D,A1,8D,BF,17,FF 
,48,26,F9 

630 DATA 33,41,8D,96,8D,B4,17,FF 
,4A,26,F9 

640 DATA 33,41,8D,8B,8D,A9,17,FF 
,4B,26,F9 

650 DATA 33, 41, 8D, 80, A, 51, 26, CI, 
17,FF,5E 



660 DATA 17,FF,76,8D,94,E6,84,58 

,58,58 

670 DATA 58,58,17,FF,3C,46,46,46 

,46 

680 DATA 17,FF,3C,26,EB,8E,7A,7B 

,BF,FF,A2 

690 DATA 1E,42,86,D,BD,A2,85,86, 

1E,BD,A2,85,F,65,39 



Listing 4: TESTSCRN 

10 HSCREEN3 

20 A$="0123456789":B$="ABCDEFGHI 

J" 

30 FORI=0TO22STEP2 

40 HPRINT(0,I) ,A$+A$+A$+A$+A$+A$ 

+A$+A$ 

50 NEXT 

60 F0RI=1T023STEP2 

70 HPRINT(0,I) ,B$+B$+B$+B$+B$+B$ 

+B$+B$ 

80 NEXT 

90 HCIRCLE (3 20, 96), 96, 1,2 

100 HCIRCLE (3 20, 96) ,90,1 

110 HLINE(0,0)-(639,191) ,PSET,B 
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If You Are Serious About Stocks. 
This Program Is A Must! 



Stock Market portfolio for the color computer 
will keep track of all your current stock listings 
and keep a listing of stocks you have sold by the 
year, they were sold with all totals, profit and 
loss, and percentages. More than one person 
can use this program as long as the first three 
letters on both first and last name are not the 
same. The program is menu driven and will 
give you the option for cither screen print or 
information to be printed on printer. 
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Rush Check for S22.00 plus S3.00 shipping & handling to: 
Paparis Enterprises 
700 York St. 

Williamsburg, VA 23185 
Please allow 2-3 weeks for delivery 
Sorry no C.O.D.S 
VA residents add 4.5% sales lax. 
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EARS 



Electronic 
Audio 
Recognition 
System 



$99.95 



SPEECH 
RECOGNITION 




•HANDS OFF 
PROGRAMMING 

•HIGH 
QUALITY 
SPEECH 
REPRODUCTION 

EARS Does It All! 



> 



Two Years In the Making. Speech Systems 
was formed to develop new and innova- 
tive speech products. After 2 years of in- 
tensive Research and Development, we 
have created a truely sophisticated 
speech recognition device. Recognition 
rates from 95% to 98% are typical. Until 
now, such a product was outside the 
price range of the personnel computer 
market, and even small businesses. 

EARS is trained by your voice and capable 
of recognizing any word or phrase. 
Training EARS to your particular voice 
print takes seconds. Up to 64 voice prints 
may be loaded into memory. You may 
then save on tape or disk as many as you 
like so that your total vocabulary is virtu- 
ally infinite. 

Speech and Sound Recognition. EARS is re- 
ally a sound recognition system, so it re- 
ally doesn't matter whether you speak in 
English, Spanish, or French. In fact you do 
not have to speak at all, you can train 
EARS to understand sounds such as a 
musical note or a door slamming. 

Hands Off Programming. Imagine writing 
your own BASIC programs without ever 
touching the keyboard. Everything that 



you would normally do through a 
keyboard can now be done by just 
speaking. 

Programming EARS Is Easy. LISTEN, 
MATCH and other commands have been 
added to BASIC so that programming 
EARS is a piece of cake! The single BASIC 
line: 10 LISTEN: MATCH will instruct 
EARS to listen to you and return the 
matching phrase. 

It Talks. EARS is also capable of high qual- 
ity speech. We mean REALLY high quality. 
The speech is a fixed vocabulary spoken 
by a professional announcer. Speech 
Systems is currently creating a library of 
thousands of high quality words and 
phrases. For a demonstration call (312) 
879-6844, you won't believe your ears or 
our EARS. 

DISK OWNERS. EARS will work with any 
disk system with either a MULTI-PAK or 
Y-CABLE. Our new Triple Y-CABLE was 
specifically developed for those wishing 
to add SUPER VOICE as a third device. 

You Get Everything You Need. You get ev- 
erything you need including a specially 
designed professional headset style noise 



cancelling microphone. The manual is 
easy to use and understand. Several 
demonstration examples are included so 
you don't have to write your own pro- 
grams unless you want to. EARS will work 
in any 32K or 64K Color Computer. 

SUPER VOICE $20 OFF 

Imagine talking to your computer and it 
talking back to you. When you need an 
unlimited vocabulary, you can't beat 
SUPER VOICE. For a limited time, we will 
give you the SUPER VOICE for $59.95 with 
your EARS purchase. Even if you already 
have another speech unit, here is your 
chance to buy the best and save $20. 

VOICE CONTROL 

Applications for EARS are astounding. 
Here is our first of many listening pro- 
grams to come. VOICE CONTROL is a 
program specifically designed to allow 
you to control any appliance in your 
house with your voice and our HOME 
COMMANDER (sold separately) or the 
Radio Shack Plug 'N' Power controller. 
For example, you can control your TV by 
saying "TV ON" or "TV OFF". . $24.95 
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Dealer Inquiries 
Invited 
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emA 



We accept CASH, CHECK. COD. VISA and MASTER CARD orders. 

Shipping and handling US and Canada $3.00 

Shipping and handling outside the US and Canada $5.00 

COD charge $2.00 

Illinois residents add 6'/<% sales tax 



Speech S^usti 

38W255 DEERPATH ROAD 

BATAVIA, ILLINOIS 60510 

(312) 879-6880 (TO ORDER) 



CALI ANY DAY TO ORDER. ALSO ORDER BY MAIL 




TURBO RAM 



TURBO CHARGE YOUR COCO 3 



99.95 



V 5I2K Fast High Quality Memory. 

•^ Super Easy Solclerless Installation. Installs in minutes. 

i-"" Assembled, tested, and burned-in. 

\* 120 ns RAM Chips 

t^ High Quality Double Sided, Solder Masked, Silkscreened PC Board. 

W Ideal lor OS9 Level II 

** 2 Year Warranty. 

1-" Free CIME Chip Technical Specs ($10.00 without Turbo Ram). 

\S Free 5I2K Ram Test Program ($10.00 without Turbo Ram). 

V Free MUSICA RAM Disk ($10.00 without Turbo Ram). 
t" $5 OFF TURBO RAM Disk. 

fc" Also available, TURBO RAM less memory chips $49.95 





INSTALLATION 

It you know how to hold a screwdriver, we're convinced you can 
install Turbo Ram in minutes. However, it you like, send us your 
COCO 3 insured, postage paid, and we will install it, pay the return 
postage and guarantee it lor I year $15.00 



SATISFACTION GUARANTEED 

It for any reason you wish to return Turbo Ram, you may do so 
within 1 5 clays and be charged only a 10% restocking charge. You 
may keep the GIME CHIP Technical Specs, 5I2K Ram Test program 
and MUSICA RAM DISK, a $30 value. 



TURBO RAM DISK adds 2 lightning fast Ram Disks to your COCO system. 
Imagine saving and loading programs instantaneously and having hundreds 
of your programs "on line" for fasl access. Single disk system users can 



TURBO RAM DISK 



use TURBO RAM DISK lo easily make backups wilhoul continuously 
switching disks. 

Requires 5I2K Turbo Charged COCO 3 $24.95 

When purchased with TURBO RAM $19.95 



COCO 3 128K 



COLOR CONNECTION IV 

This is the most comprehensive modem package lor the COCO 3. All 
standard protocols are supported including CompuServe's Protocol B, 
XMODEM protocol, and XON/XOFF. Full support of the auto answer/auto 
dial feature for both Hayes compatible and some Radio Shack modems is 
provided. Single key macros allow easy entry of often-used passwords and 
ID's with a single key stroke. 
Disk $49.95 

COLOR SCRIBE III 

This great Word Processor can take full advantage of the 80 column display 
of the COCO 3. justification. Headers, Foolers, and Pagination make it 
perfect for letters and documents as well as programming in BASIC, PAS- 
CAL, "C," and Assembly Language. Over 20 line editing commands include 
capabilities like character insert and delete, skip over words, breaking a 
line, and more! 
Disk $49.95 



We accept CASH. CHECK. COD. VISA .mtl MASTER CARD Order*., 
Shipping .ind handling US and Canada SUM) 

ShippiiiK .ind handling outside ihc LIS .mcl Canada . . SS.00 

COH CImtrc- S2.U0 

Illinois residents add &'/<% s.dcs i.iv. 
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THE MAGIC OF ZANTH 

In the Land of Zanth, magic is commonplace. Dragons, Griffins, Centaurs 
and Demons abound. You are sent on a quest to discover Ihe source of 
magic in the Land of Zanth. This intriguing adventure features over 2 
do/en hi-res 1 6 color animated graphic screens. 4 voice music and sound 
effects. The 16 color, 320 x 192 graphics look great. 
Disk $34.95 

RETURN OF JUNIOR'S REVENGE 

This is Ihe same junior you've seen in Ihe Kong arcade series, but with 
new COCO 3 graphics. This tireless little monkey must overcome all sons 
of obstacles (4 screens worth) to rescue his father, The King, from Ihe 
mean zookeeper. He will Iraverse the jungle and swamp, climb vines, 
avoid chompers and birds, open locks, and more before he finally meets 
with his big daddy. The 16 color, 320 x 192 graphics are superb. 
Disk $34.95 

38W255 DEERPATH ROAD 
r C* / BATAVIA, ILLINOIS 60510 

/2 <^lHyiL£/?2d (312) 879-6880 
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FILE EDIT MIDI MISC. 



All Voices Dn 
LEGE Tine Signature 
Key Signature 
Tenpo 
Reset block 
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FILE EDIT MIDI MISC 
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LYRA is the most powerful music composition program we have seen on 
■ any computer. We don't mean just the COCO, we really mean any com- 
puter. Whether you are a novice trying to learn music or a professional 
musician with MIDI equipment you will find LYRA a powerful tool. You 



see. we wrote LYRA for musicians thai hate computers. If you want proof, 
purchase a LYRA demo for $7.95. We will apply the demo price to your 
purchase. MIDI output requires the LYRA MIDI cable l#MC158l or COCO 
MIDI Seq/Editor t#CMI47>, 



Ultra Easy to use. |ust point with joystick or 

mouse and click. 

Compose with up lo 8 completely 

independent voices 

Room for over 18,000 notes. (This is not a 

misprint!) 

Super Simple Editing Supports 



is 



Note insert 


Block insert 


V* 


Note delete 


Block delete 




Note change 


Block copy 


V 


** Output music to 1 






TV Speaker 


Monitor Speaker 


#" 


STEREO PAK 


ORCHESTRA 90 




SYMPHONY 12 


COCO MIDI S/E 


M» 


MIDI Synth 


MIDI Drum Machine 




v Output up to 4 voices without adaitional 


f 


hardware. 







Output all 8 voices using either SYMPHONY 

12 or one or more MIDI synthesizers and 

drum machines 

Output any voice on any ol the 8 MIDI 

channels. 

Transpose music to any key. 

Modify music to any tempo 

Automatically inserts bar (or each measure 

as you compose 

Key signature lets you specify sharps and 

flats only once, LYRA will do the rest 

Plays MUSICA 2 files using LYRA CONVERT 

(#LC164). 

Each voice may be visually highlighted or 

erased 

Each measure is numbered for easy 

reading 



v Solo capability 

v Block edits are highlighted. 

«•" Tie notes together lor musical continuity. 

v Name ol note pointed lo is constantly 

displayed 
*^ Jump to any point in the score 

instantaneously 
»•* Memory remaining clearly displayed. 

however you will have plenty of memory 

even for the most demanding piece. 
v Help menu makes manual virtually 

unnecessary 
v LYRA is 100% software, no need lor extra 

hardware unless you want more power, 
f Music easily saved to tape or disk. 
^ Requires 64K and mouse or joystick. 
LYRA (Disk only) #LY122 $54.95 



LYRA OPTIONS 



These LYRA options are 

LYRA CONVERT 

A program to convert MUSICA 2 files to LYRA 

files. 

(Disk) #LC164 $14.95 

VERSION UPDATE 

To receive the latest version of LYRA return your 
original disk. #UP162 $10.00 

LYRA MIDI CABLE 

A cable lo connect your computer to your MIDI 

synthesizer. 

#MC158 $19.95 

We jcccpl CASH. CHECK, COD, VISA .ind MASTER CARD Orders, 

Shipping and handling US and ( .in.xl.i SI (III 

Shipping .ind handling outside the US ,ind Canada . . 45. (HI 

COD Charge $2.00 

Illinois residents add <t%% sales lax. 



not required. They are provided for those wishing additional flexibility. 



LYRA SYMPHONY 12 ENHANCER 

Lets LYRA play all 8 voices through SYMPHONY 

12. 

(Disk) #LSI77 $19.95 

LYRA LIBRARY 

A collection of 50 songs ready lo play for hours. 
Most have 7 and 8 voices. #LL 1 37 . $39.95 

SYMPHONY 12 

A real hardware music synthesizer, lets LYRA 

play all 8 voices in slereo. 

(T or D) #SY149 $69.95 



COCO MID Seq/Editor 

A professional quality MIDI interface for MIDI 

synthesizers. 

(Disk only) #CMI47 $149.95 

MUSIC LIBRARY 

A collection of over 900 songs. When used with 
CONVERT, it gives an incredible LYRA library. 
Each volume 100 songs. 
(T or D) #MLXXX $29.95 

i <» i ) MAX Is >i trademark <>' * olorware. 
< iKCMLStRA 90 .s .. trademark ol Radio Shack 
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38W255 DEERPATH ROAD 

BATAVIA, ILLINOIS 60510 

(312) 879-6880 
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MIDI Instruments: 

[I : L<10 1 Brass 1:005 String 

7 2=006 Piano 3:009 Guitar 

f 4:013 E Organ 5:014 P Organ 

6:003 Trunpet 7:016 Flute 

618:018 Dboe 9:019 Clarnet 

2 ft: 021 Vibrphn B: 026 Harpsch 

C: 025 Clavier D: 032 Tinpani 

E: 043 Snaredr F:045 Percusn 
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Now your COCO can talk to your MIDI music synthesizer. 
Whether vou have a Korg, Roland, Casio, Yamaha, or Moog, it 
doesn't matter as long as it's MIDI equipped. Choose from our 



entry level MUSICA MIDI system that plays MUSICA files or our 
Professional COCO MIDI 2 system. 



i-" Supports 16 Track recording and playback. 

v» Adjustable tempo 

i* Over 45 Kbytes available 

(Over 15,500 MIDI events possible) 

\* Record to any track 

v> Low Level track editing 

** LYRA editing (one voice per track) 

V Playback from any number of tracks. 

i^ Quantizing to Vie, 'fa, '/& intervals 

v Dynamic memory allocation 



V Filter out MIDI data: „ 

Key pressure Conlro1 Cnange 

Program change Channel Pressure 

Pitch wheel System Message 

i^" Graphic Piano Keyboard Display in both 
record and playback mode. 

*«* Adjustable Key (Transposition) lor each 
track 

ix" Save recording to disk for later playback or 
editing 

i*« Syncs to drum machine as MASTER or 
SLAVE. 



Save and load voice parameters for the Yamaha DX series of syn- 
thesizers (DX-7, DX-100, DX-21 etc.). Save sounds individually 
or as a group letting you load the entire synthesizer in seconds. 



DX LIBRARIAN 



TM 



w PUNCH IN and PUNCH OUT editing 

i^» Seouencer features 

v* 100% machine code. 

u* "Musician Friendly" Menu Driven. 

i^ Metronome 

v Many songs included. 
Includes MIDI hardware interlace, 2 MIDI ca- 
bles, detailed manual, and software. Requires 
64K CoCo, Y-Cable or Multi-Pak. 
COCO MIDI 2 (disk only! #CM147 . $149.95 

DOUBLE Y-CABLE #DY181 $28.95 

TRIPLE Y-CABLE #TY173 $34.95 



Comes with professionally developed voices for the DX-7 worth 
10 times the price. Requires COCO MIDI hardware interface. 
DX LIBRARIAN (Disk only) #DX143 $39.95 



CASIO LIBRARIAN 



Save and load voice parameters for any Casio synthesizer (CZ-101, 
CZ-1000, CZ-5000 etc.) You can save from the: presets, cartridge, 



memory or buffer. Requires COCO MIDI hardware interface. 
CASIO LIBRARIAN (Disk only) #CL169 $39.95 



MUSICA MIDI 



TM 



MUSICA MIDI takes any MUSICA 2 music file and plays it through 
your MIDI synthesizer. We offer you over 800 tunes from our 
MUSIC LIBRARY series (sold separately) or create your own music 



using MUSICA 2. Inlcudes: documentation, plenty of music, and 
the cable to connect between the COCO and your synthesizer. 
MUSICA MIDI Complete (Disk Only) #CM126 $39.95 



MIDI KEl/BOARD 



If you own the Casio CZ-101 or similar MIDI synth, you know 
that the mini keys and the short 3 or 4 octave keyboard is limiting. 
MIDI KEYBOARD when used with our full size 5 octave keyboard 



gives you the flexibility you need. Comes with cable to connect 

the COCO to your MIDI synth. 

MIDI KEYBOARD (Disk only) #MK167 $29.95 



Graphics An i mation 



16K ECB 




Electrifying Graphics 

Using PMODE Power 

By Becky F. Matthews 




44 



There is nothing like a colorful computer 
animation to pique a person's interest. 
Using animation, the most serious sub- 
ject can become as entertaining as Saturday 
morning cartoons are to a child. You want 
to get a point across? Catch someone's eye 
(and attention) by using lots of color and 
movement. 

Computer animation is easy. Energy pro- 
Becky Matthews has a degree in music educa- 
tion from the University of Mississippi. She 
and her husband, David, have three Co Cos and 
two CoCo cats. 

THE RAINBOW October 1987 



vides three examples of simple animation 
sequences illustrating three different sources of 
energy. Each animation uses two PMDDE1 
screens. A picture is drawn on the first screen 
(PMDDE 1,1), which uses graphics pages I and 
2. The second screen for each animation 
(PMODE 1,3) uses graphics pages 3 and 4. The 
animation is achieved by offsetting on the 
second screen the portions of the picture that 
you want to animate. 

In the wind power sequence (see Figure I), 
the blades of the windmill are horizontal and 
vertical on the first screen. On the second 
screen the blades are drawn di- 
agonally. The top edge of 
the field is also 
offset to 




the Color Computer Word Processor 



3 display formats: 51/64/85 

columns x 24 lines 

True lower case characters 

User-friendly full-screen 

editor 

Right justification 

Easy hyphenation 

Drives any printer 

Embedded format and 

control codes 

Runs in 16K, 32K, or 64K 

Menu-driven disk and 

cassette I/O 

No hardware modifications 

required 



THE ORIGINAL 



Simply staled. Telewriter is (he mosl powerful 
word processor you can buy for ihe TRS-80 
Color Compuier. The original Telewriter has 
received rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
owners. And rightly so. 
The standard Color Compuier display of 32 
characters by 16 lines without lower case is 
simply inadequate for serious word processing. 
The checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
Tl, Vic or TRS-80 Model III. 

On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fan. With single-letter mnemonic 
commands, and menu-driven I/O and 
formatting, Telewriter surpasses all others for 
user friendliness and pure power. 

Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 



...one of the best programs for the Color 
Compuier I have seen... 

— Color Computer News, Jan. 1982 



TELEWRITER-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Tclewriter-64. For two reasons. 



64K COMPATIBLE 



Telewritcr-64 runs fully in any Color Computer 
— I6K, 32K. or 64K, with or without Extended 
Basic, with disk or cassette or both. Ii 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telcwriter-64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 x 24 and 85 x 241! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 51 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
lime. Compare this with cumbersome 
"windows" that show you only fragments at a 
lime and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage of the nill-width 
screen display is thai you can now set the 
screen width to match ihe width of your 
primed page, so thai "whai you see is what 
you get." This makes exact alignment of 
columns possible and il makes hyphenation 
simple. 

Since short lines are ihe reason for the large 
spaces oflen found in standard right justified 
text, and since hyphenation is the mosl 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can gel on 
ihe Color Computer. 



FEATURES & SPECIFICATIONS: 



Printing and formatting: Drives any printer 
(LPVIl/VUI, DMP-100/200. Epson. Okidata. 
Centronics, NEC. C. hoh. Smith-Corona. 

Tcrminei, etc). 

Embedded control codes give full dynamic access to 
intelligent printer Features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, etc. 

Dynamic (embedded) formal controls for: lop, 
bottom, and left margins; line length, lines per page, 
line spacing, new page, change page numbering, 
conditional new page, enable/disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer at lop speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from ihe keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line headers and automatic 
centering. Print or save all or any section of ihe text 
buffer. Chain print any number of files from cassette 
or disk. 



File and I/O Features: ASCII format Hies — 
create and edit BASIC, Assembly, Pascal, and C 
programs, Smart Terminal files (for uploading or 
downloading), even text files from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette verify command for su'e saves. Cassette auto- 
retry means you type a load command only once no 
matter where you are in ihe tape. 
Read in, save, partial save, and append files with disk 
and/or cassette. For disk: print directory with free 
space to screen or printer, kill and rename files, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full-screen editor with 
wordwrap, block copy, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, fast auto-repeat cursor, fast scrolling, cursor 
up. down, right, left, begin line, end line, top of text, 
bottom of text; page forward, page hackward, align 
text, tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect, 
set line length on screen. 

Insert or delete text anywhere on (he screen without 
changing "modes." This fast "free-form" editor 
provides maximum ease of use. Everything you do 
appears immediately on the screen in front of you. 
Commands require only a single key or a single key 
plus CLEAR. 



. . . truly " slale °f ,ne arl w ord processor. . . 
Outstanding in every respect. 

— The RAINBOW, Jan. 1982 
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PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Compuier is ihe lowest priced micro with the 
capability for serious word processing. And 
only Tclewriter-64 fully unleashes lhat 
capability. 

Telewriter-64 cosls $49.95 on casseite, S59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tuiorial will have your writing with 
Telcwriter-64 in a matter of minutes.) 
To order, send check or money order to: 

Cognitec 

704 Nob Street 

Del Mar, CA 92014 

Or check your local software store. If you have 
questions, or would like to order by Visa or 
Mastercard, call us at (619) 755-1258 (weekdays, 
8AM-4PM PST). Dealer inquiries invited. (Add 
$2 for shipping. Californians add 6% state tax.) 

Available at 
Radio /hack stores 
via express order 

catalogue #90-0253 
90-0254 

Apple II is a trademark of Apple Computer. Inc.; Alan I* a trademark 
of Alan, Inc.; TRS-80 15 a trademark of Tandy Corp, MX-80 ii > 
trademark of Epton America, Inc. 



look like a field of wheat blowing in the 
breeze. Line 250 animates the sequence 
by flipping back and forth between the 
two pictures. 

In the second animation sequence, 
hydroelectric power, the water wheel 
paddles and the waves in the river are 
offset. The illusion of movement at the 
end of the water wheel is achieved by 
circles drawn there on the first screen 
(Line 360) but not on the second screen. 
The water wheel sequence is animated 
by Line 530. 

The third animation illustrates solar 
power (see Figure 2). The sun's rays are 



offset and the flowers are drawn slightly 
larger on the second screen to show 
their growth from the sun's energy. This 
sequence is animated by Line 790. 

In each animation, the second picture 
is drawn on a hidden screen. This is 
possible by using the PMODE statement 
(PMODE 1,3 in this example) and not 
following it with a SCREEN command 
(see lines 1 90, 460 and 690). The SCREEN 
command displays the screen. Without 
the SCREEN command, that screen is 
active (that is, you can draw on it), but 
it is not shown. To see the second screen 
of the wind power animation being 



drawn, edit Line 190, inserting SCREEN 
1,0: after PMODE 1 , 3 : . To see the other 
two second screens as they are drawn, 
edit lines 460 and 690, inserting SCREEN 
1,1: after PMODE 1,3: in each line. 

I hope this simple program has dem- 
onstrated how easily you can animate 
an object. The next time you have a 
point to make, remember, cartoons can 
entertain, but they can teach, too! 

(Questions about this program may 
he directed to the author at 3917 Baxter 
Street, Nashville. TN 37216. Please 
enclose an SASE when writing for a 
reply.) □ 



// 




Y 200 .. . 


...186 


340 ... 


....45 


490 ... 


...154 


660 ... 


...94 


END 


179 





60 

70 
80 
90 



The listing: ENERGY 

10 '***ENERGY BY BECKY MATTHEWS 

20 ■ *TITLE PAGE 

30 CLS4:PRINT§75," SOURCES " ; : PR 

INT@107 , "OF ENERGY" ; 

40 PRINT@19 6,"1. WIND POWER 

" ;:PRINT@228,"2. HYDROELECT 
RIC POWER "; : PRINT@260, "3 . SOLAR 

POWER " ; 

50 PRINT@358, "CHOOSE ONE (1-3)"; 

INPUT A 

ON A GOSUB 90,270,550 

GOTO30 

'**WIND POWER SUB 
100 '*1ST SCREEN 
110 "DRAW WINDMILL 
120 PMODE1,1:PCLS3:SCREEN1,0:DRA 
W"BM178 , 76C2S8BH2H2U30R8D30NG2R3 
0D8L30NH2D30L8U30NE2L30U8R30NF2B 
D8G6D45R20U45H6" 
130 'DRAW FIELD 

140 DRAW'BMl , 192NU14R2 54U15L2 " : C 
IRCLE(82,180) ,100,2, .35,-6, .906: 
CIRCLE (2 10, 160) ,42, 2,. 5,0,. 3 
150 'PAINT 

160 PAINT (178, 76) , 4 , 2 : POKE178 , 22 
: PAINT (178, 160) , , 2 : PAINT (5 , 188) , 
2,2 

170 '*2ND SCREEN 
180 'DRAW FIELD 

190 PMODEl,3:PCLS3:CIRCLE(82,179 
) ,100,2, .3 5, .6, .906: CIRCLE (210,1 
59) ,42,2, .5,0, .3:DRAW"S8C2BM1,19 
2NU16R254U16L2" 



270 
280 
2 90 
300 



200 'DRAW WINDMILL 

210 DRAW"C2S6BM178,68BU2U2E30F8G 

30NL2F30G8H30NU2G30H8E30NR2H30E8 

F30D2BD16BG13D52R2 6U52" 

2 20 'PAINT 

230 PAINT (178, 76) ,8, 6: PAINT (5, 18 

8 ) , 2 , 2 : POKE178 , 22 : PAINT ( 178 , 170 ) 

,,6 

240 '*ANIMATE 

250 FORC=1TO40:PMODE1,1:SCREEN1, 

: FORT=1TO50 : NEXTT : PMODE 1 , 3 : SCRE 

EN1 , : FORT=1TO50 : NEXTT : NEXTC 

2 60 RETURN 
•**HYDROELECTRIC POWER SUB 
'*1ST SCREEN 
'DRAW FRAME 
PMODE1 , 1 : PCLS 1 : SCREEN1 , 1 : COL 

OR6:LINE(l,l)-(256,192) ,PSET,B 
310 'DRAW MOUNTAINS/SKY 

3 20 COLOR7:LINE(0,70)-(3,65) , PSE 
T : FORX=3T02 5 6STEP5 : Y=RND ( 70 ) +20 : 
LINE-(X,Y) ,PSET:NEXTX: LINE- (256, 
65 ) , PSET : PAINT ( 20 , 10 ) , 6 , 7 

3 30 'COPY MOUNTAINS/SKY TO 2ND S 

CREEN 

340 PC0PY1T03:PC0PY2T04 

3 50 'DRAW WATER WHEEL 

360 COLOR6:FORR=2T022STEP4 : CIRCL 

E(140,150) ,R,7:NEXTR 

370 LINE(160, 140)-(208, 120) , PSET 

: LINE ( 150 , 130) - ( 196 , 114 ) , PSET : LI 

NE(162,155)-(212,135) ,PSET 

380 CIRCLE(196,130) ,20,7,1, .7, .9 

9: CIRCLE (19 6, 130) ,20,7,1,0, .2 

390 LINE(142, 128)-(188, 112) , PSET 

: LINE (152, 169) -(208, 147) , PSET: CO 

LOR7: PAINT (140, 150) ,8,7 

400 'DRAW RIVER 

410 DRAWBM0, 100S8C7ND10R66F2R8F 

1R6F2R4F4R2F3F4D4F4R22BM0,120S8R 

62F2R4F1R6F4R4F8D5F4D4F4R28U17": 

PAINT (5, 105) ,6,7 

4 20 'DRAW WAVES 
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430 DRAW"BM15,110C5R5BD4R3BR2R2B 

E5R6BF1BR2R6BE3R3BD7R2BE6R4BR8BD 

2R2F2BF4BR6F3BF4F4BU8R1F3BF3F2BD 

7F3R4BR3R3BU5L3BD9R5" 

440 '*2ND SCREEN 

450 'DRAW WATER WHEEL 

4 60 PM0DE1, 3 : COLOR6 : CIRCLE (196,1 

30) ,20,7,1, .7, .99: CIRCLE (140, 150 

) ,22,7:LINE(156,135)-(204,116) ,P 

SET : PAINT ( 140 , 150 ) , 8 , 7 

470 CIRCLE(196, 130) ,20,7,1,0, .2: 

LINE (152, 169) -(2)38,147) ,PSET:LIN 

E( 152, 162) -(208, 140) ,PSET:LINE(1 

60,145)-(210,125) ,PSET 

480 'DRAW RIVER 

490 LINE(142,128)-(188,112) , PSET 

: DRAWBM0 , 100S8C7ND10R66F2R4F1R6 

F2R6F4R4F3R2F4D4F4R20BM0,120S8R6 

0F2R4F1R6F4R4F8D5F4D4F4R30U17" : P 

AINT(5,105) ,6,7 

500 'DRAW WAVES 

510 DRAW"BM20,110C5R6BF2R2BR2R4B 

U4R6BF3R8BD5R5BE5R2BF2R4BU6R2BF8 

R4F2BE3R4F3BF4R2F2BF4F2BU2F3BD8F 

2R2BU4F3R4BD3R3BU9L6" 

520 '*ANIMATE 

530 FORC=1TO40:PMODE1,1:SCREEN1, 

1 : FORT=1TO50 : NEXTT : PMODE1 , 3 : SCRE 

EN1 , 1 : FORT=1TO50 : NEXTT : NEXTC 

540 RETURN 

550 '**SOLAR POWER SUB 

560 '*1ST SCREEN 

570 'DRAW SUN 

580 PMODE1,1:PCLS3:SCREEN1,0:CIR 

CLE(235,20) ,30,2, . 9 : PAINT (220 , 20 

) , 2 , 2 : COLOR2 

590 'DRAW RAYS 

600 FORX=185TO5STEP-20:LINE(X,20 

) -(X+ 10,20) ,PSET:NEXTX 

610 FORY=55TO170STEP17: LINE (235, 

Y)-(235,Y+8) ,PSET:NEXTY 

620 Y=45:FORX=206TO80STEP-15:LIN 

E (X , Y) - (X-6 , Y+6) , PSET : Y=Y+15 : NEX 

TX 

630 Y=35:FORX=196TO10STEP-20:LIN 

E(X,Y) -(X-10,Y+2) , PSET :Y=Y+8: NEX 

TX 

640 Y=50:FORX=218TO180STEP-5:LIN 

E ( X , Y ) - (X-2 , Y+8 ) , PSET : Y=Y+ 15 : NEX 

TX 

650 'DRAW SMALL FLOWERS 

660 COLORl:FORX=16T0245STEP22:LI 

NE(X,190)-(X,180) , PSET: CIRCLE (X, 

180) , 7, 2: PAINT (X, 180) , 4 , 2 : CIRCLE 

(X,180) ,1,2:NEXTX 

670 '*2ND SCREEN 

680 'DRAW SUN 



690 PMODE1,3:PCLS3:CIRCLE(235,20 

) ,30,2, .9:PAINT (220,20) , 2 , 2 : COLO 

R2 

700 'DRAW RAYS 

710 FORX=175TO5STEP-20 : LINE (X, 20 

)-(X+10,20) ,PSET:NEXTX 

720 FORY=65TO160STEP17: LINE (235, 

Y)-(235,Y+8) ,PSET:NEXTY 

730 Y=50:FORX=201TO80STEP-15:LIN 

E (X , Y) - (X-6 , Y+6 ) , PSET : Y=Y+15 : NEX 

TX 

740 Y=43:FORX=186TO10STEP-20:LIN 

E(X,Y)-(X-10,Y+2) , PSET :Y=Y+8: NEX 

TX 

750 Y=58:FORX=215TO180STEP-5:LIN 

E(X,Y)-(X-2,Y+8) , PSET :Y=Y+15: NEX 

TX 

7 60 'DRAW LARGE FLOWERS 

770 COLORl:FORX=16T0245STEP22:LI 

NE(X,190)-(X,175) , PSET: CIRCLE (X, 

175) , 8, 2: PAINT (X, 175) , 4 , 2 : CIRCLE 

(X,175) ,3,2:NEXTX 

7 80 '*ANIMATE 

790 FORC=1TO40:PMODE1,1:SCREEN1, 

: FORT=1TO50 : NEXTT : PMODE1 , 3 : SCRE 

EN1 , : FORT=1TO50 : NEXTT : NEXTC 

800 RETURN /R\ 



NEW * INNOVATIVE * EXCITING 



COLOR WRITER — 1 28 

THE WORD PROCESSOR FOR THE COCO 3 



$24.95 



NOT A PATCH. BUT AN EXCITING NEW CONCEPT THAT USES YOUR 
COCO 3'S TEXT COLORING CAPABILITIES TO DISTINGUISH BETWEEN 
SCRIPT. SUPER SCRIPT, BOLD, ELONGATED AND UNDERLINE. A 40/80 
COLUMN TOGGLE WITH ON-SCREEN HELP MENU IS ALSO FEATURED. 
REQUIRES A 1 28K COCO 3 WITH DISK DRIVE OR CASSETTE. ANY PRIN- 
TER WORKS. S24.95 



BLACKBOOK 

FOR THE COCO 1,2 AND COCO 3 



$7.95 



HAVE YOU EVER LOST OR MISPLACED YOUR ADDRESS BOOK AT A 
CRUCIAL MOMENT? THEN YOU NEED BLACKBOOK. IT SAVES OVER 
500 NAMES TO DISK AND WILL FIND THEM QUICKLY WITH ITS 
DEDICATED SEARCH BY NAME. ADDRESS, CITY. STATE OR ZIP CODE. 
FEATURES PASSWORD PROTECTION. A PRINT FUNTION AND AN EASY- 
TO-USE EDIT AND ADD. S7.95 



CARTOONAMATOR 

FOR THE COCO 2 AND COCO 3 



$14.95 



CARTOONAMATOR IS A NEW AND EXCITING PROGRAM THAT USES 
ALL NINE OF YOUR 64K COCO 2'S VIBRANT COLORS. IT FEATURES 
THE SAME ANIMATION TECHNIQUE THAT DISNEY USED IN HIS 
CREATIONS. CREATE CARTOONS OF HUNDREDS OF FRAMES AND UP 
TO A MINUTE IN LENGTH. THIS EXCITING PRODUCT IS BEING 
INTRODUCED AT THE LOW PRICE OF S14.95 

COCOTRONICS SOFTWARE 

4330 BARRANCA PKWY.. STE. 101-296 

IRVINE, CA 927 14 (714)651-0283 

PLEASE ADD S1.50 P&H, C.O.D. ADD $2.50 EXTRA 
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Graphics 
Creation 
Transfer 




By Scott Montgomery 






Here is a program thai graphics 
fanatics might find useful. Since 
graphics screens reside in differ- 
ent memory locations in disk and tape 
systems, even commercial transfer util- 
ities don't fix your favorite graphics 
files. Suppose you have a disk-based 
system (as 1 do) and your friends have 
tape-only systems. How do you transfer 
your graphics creations to tape format 
for your friends? This is where Graflran 
comes in. It's for PMODE 3 or 4 standard 
6K graphics screens. 

Graflran is written in Extended Color 
BASIC and is menu-driven. There are 
five selections on the menu: load in a 
tape graphic, load in a disk graphic, 
view graphic in memory, save graphic 
to disk and save graphic to tape. These 
are all straightforward, but 1 have 
outlined the various options below. 

The first is loading in a tape graphic. 
Press Play on your cassette player when 
you have inserted the tape containing 
the graphic. Press the number I on the 
computer keyboard and press any key 
except ENTER. If no I/O Error occurs, 
the graphic will be loaded into memory. 
If you press ENTER by itself, the load 
process will be aborted and you will be 
returned to the main menu. 

The next option is loading in a disk 
graphic. Pressing 2 from the main menu 
puts you into the disk load routine. If 

Scoil Montgomery of Seymour, Indi- 
ana, has a certificate in electronics from 
the Cleveland Institute of Electronics 
and is completing an associate 's degree 
in electronics at Indiana Vocational 
Technical College. He, his wife, Cyndi, 
and daughters Cheri and Sara, are all 
confirmed Co Co maniacs. 



you want to see the directory, enter D I R. 
Otherwise enter the filename and exten- 
sion of the graphic you want to load. 
Pressing ENTER by itself will send you 
back to the main menu once again. 

Next is viewing a graphic in memory. 
Upon pressing 3, you will be prompted 
to enter either 3 or 4 for the PMODE in 
which you want to view the graphic. 
When you are finished viewing the 
graphic, pressing ENTER returns you to 
the menu. 

The fourth option is saving a graphic 
to disk. After selecting this option, you 
will have to enter the filename and 
extension of the graphic to be saved. 
Again, enter returns you to the menu. 

The last option is saving a graphic to 
tape. This is the only tricky part. Enter 
the filename of the graphic you want to 
save. If a disk controller is connected to 
your computer, you will be informed 
that the resulting tape copy of the 
graphic will not be compatible with 
tape-only systems. To make it tape-only 
compatible, you must have a tape copy 
of Graflran to load into your tape-only 
system. All you have to do is disconnect 
the disk controller, load in and run 
Graflran from tape, select 1, load in the 
tape copy of the graphic and select 5 to 
save it back again. Graflran will do the 
rest. The resulting copy of the graphic 
image will be saved at the correct 
addresses for a tape-only system. I'd like 
to thank Andy Kluck for his tape load 
routine which appeared in the October 
1984 RAINBOW. 

(Questions or comments may he 
addressed to the author at 600 Policy 
Drive, Seymour. IN 47274. Please 
enclose an SA SEfor a reply.) □ 
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Tandy Computers: 
Because there is 
no better value.™ 



Tandy Color Computer 3 




////////# 




We cut $ 20 off our most 
powerful Color Computer- 
nowjust $ 199. 

Now Radio Shack's most advanced version of 
the famous Color Computer is more affordable 
than ever! The Color Computer 3 is great for 
small business and home applications such as 
education, programming, word processing, 
graphics, entertainment and more. 

It's easy to expand with disk drives, 
printer, telephone modem and more. 
Plus, the Color Computer 3 comes 
with 128K RAM (expandable to 
512K), giving you greater programming 
and data-processing power. And for 
added versatility, the Color Computer 
3 is compatible with software and ac- 
cessories designed for the popular 
Color Computer 2. 

Create razor-sharp graphics with our 
CM-8 high-resolution monitor (sold sepa- 
rately). You can achieve up to 
160 X 192 or 320 X 192 resolution 
graphics using 16 colors, or 640 X 192 
with 4 colors. 

The Color Computer 3 offers uncom- 
promising performance at a terrific price. 
Visit Radio Shack today for a demonstration! 



r 

L 



Send me a new 1988 
computer catalog. 

Mail To: Radio Shack 
Dent. 88-A-79 
300 One Tandy Center 
Fort Worth. TX 76102 



City 

Stale . 



^ 
=i 



Phone _ 



wJ 



Radio /hack 



Was $219.95 in Cat. RSC-17B. Price applies at Radio Shack 
Computer Centers and participating Stores and dealers. Moni- 
tor, stand, Program Pa It and disk drive sold separately. 



The Technology Store' 

A DIVISION OF TANDY CORPORATION 
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The listing: GRfiFTRflN 

10 CLS : A$=STRING$ (32,"*") : PRINTA 
$;'"* GRAPHICS TRANSFER UTILITY # 
2 ** (C) 1987 MONTGOMERY SOFTWAR 
E *";A$; 
20 PRINT" PLEASE SELECT A NUMBER 

(1-5) ": PRINT 
30 PRINT" (1) LOAD A TAPE GRAPHIC 
S FILE": PRINT 

40 PRINT" (2) LOAD A DISK GRAPHIC 
S FILE": PRINT 

50 PRINT" (3) VIEW GRAPHICS IN ME 
MORY": PRINT 

60 PRINT" (4) SAVE A GRAPHICS FIL 
E TO DISK" 

70 PRINT" (5) SAVE A GRAPHICS FIL 
E TO TAPE"; 

80 X$=INKEY$: X=VAL(X$):IF X<1 
R X>5 THEN 80 

90 ON X GOTO 100,200,300,400,500 
100 REM ANDY KLUCK ■ S TAPE LOAD 

ROUTINE FROM 10/84 

RAINBOW ARTICLE. 
110 CLS : PRINTA$ ; : PRINT" *PRESS AN 
Y KEY TO LOAD GRAPHICS** OR <ENT 
ER> TO RETURN TO MENU *";A$ 
115 L$=INKEY$:IF L$=""THEN 115 E 
LSE IF L$=CHR$(13) THEN 10 
117 PRINT: PRINT "LOADING GRAPHICS 



120 POKE&H78,0 

130 POKE&H1D1,0 

140 EXEC&HA648 

150 P0KE&H1E7,PEEK(&HBC) :POKE&Hl 

E8,0 

160 EXEC&HA505 

170 GOTO 10 

200 CLS : PRINTA$ ;: PRINT"* NAME OF 

DISK GRAPHICS FILE TO** LOAD (F 
ILENAME/EXT) OR DIR OR**<ENTER> 
TO RETURN TO MAIN MENU*";A$ 
210 PRINT"> ";:LINEINPUTF$:IF F$ 
="DIR"THEN CLS : DIR: PRINT: LINEINP 
UT" FILENAME TO LOAD (FILENAME/EX 
T) > ";F$ 

220 IF F$="" THEN 10 
230 LOADM F$:GOTO 10 
300 CLS : PRINTA$ ; : PRINT" * PMODE 3 

OR 4 GRAPHICS SCREEN?** (PRESS 
EITHER NUMBER 3 OR 4) ** PRESS E 
NTER WHEN DONE VIEWING*" ;A$ 



310 P$=INKEY$:P= VAL(P$):IF P<3 

OR P>4 THEN 310 

320 PMODE P,1:SCREEN1,1:EXEC4453 

9 

3 30 GOTO 10 

400 CLS : PRINTA$ ; : PRINT" * FILENAM 

E/EXT TO SAVE TO DISK ** OR <ENT 

ER> TO RETURN TO MENU *";A$ 

410 LINEINPUT"> ";D$ 

420 IF D$=""THEN 10 

430 SAVEM D$, 3584, 9727, 44539 

440 GOTO 10 

500 CLS : PRINTA$ ; : PRINT" * FILENAM 

E TO SAVE TO TAPE OR ** <ENTER> 

TO RETURN TO MENU *";A$: 
520 LINEINPUT"> " ;R$ 
522 IF R$=""THEN 10 
530 IF PEEK(188)=14 THEN PRINT"T 
HE TAPE YOU ARE NOW CREATING W 
ILL NOT BE NON-DISK COMPATIBLE. Y 
OU MUST LOAD IN GRAFTRAN ON THET 
APE-ONLY SYSTEM AND LOAD IN THEG 
RAPHIC ON THIS TAPE AND SAVE ITB 
ACK OUT AGAIN TO TAPE . " 
535 PRINT 

540 PRINT"PRESS ANY KEY TO CONTI 
NUE" 

550 EXEC44539 

560 PRINT"SAVING ";R$;" TO TAPE" 
570 CSAVEM R$ , PEEK( 188 ) *256 , PEEK 
(188)*256+6143, 44539 
580 GOTO 10 ^ 



Corrections. 



"The Kingdom of Le Lutin" (July 1987, Page 58): 
Some readers have indicated they could not get Le 
Lutin to run on their machines. Upon entering RUN, 
the computer would lock up. The problem revolves 
around the high speed poke in Line 1. The high 
speed poke, POKE G5495,0, will not work on any 
CoCo revisions earlier than the 'F' board. Just 
delete POKEG5495,0: from that line and Le Lutin 
should work fine. 

"CoCo Sets the Pace" (September 1987, Page 140): 
For those wishing to use Tachistoscope on a disk 
system, three changes are indicated at the bottom 
of the first column on Page 141. The second change, 
the one to Line 4030, is unnecessary and, in fact, 
will not work. Only the changes to Lines 4010 and 
4040 should be made. We apologize for any 
inconvenience this might have caused. 

For quicker reference, Corrections will be posted 
on Delphi as soon as they are available in the Info 
on Rainbow topic area of the database. Just type 
DATA at the CoCo SIG> prompt and INFD at the 
TOPIO prompt. 
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Tandy Computer 
Accessories: 
Because there is 

no better value, " 



Radio Shack has the 
best of everything. 










Ic 


omputpr 
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Computer Paper 






Accessories make the difference between 
just a computer system and an efficient com- 
puter system. That's why Radio Shack offers 
a wide selection of accessories to make the 
most of your computer. 

Organize your computer workspace with 
our Computer Workcenter (A, $99.95). Our 
Universal Monitor Pedestal (B, $16.95) ro- 
tates and tilts for a perfect viewing angle. 
The Universal Printer Supports (C, $16.95) 
allow you to stack paper beneath your 
printer. Fanfold printer paper (D, from 
$8.95) is available in various sizes, colors 
and quantities. 

We've got the diskettes (E) you need, for as 
little as $11.95. Protect your diskettes using 
our Disk Library Box (F, low as $12.95), and 
Disk Drive Head Cleaning Kits (G, from 
$7-95). Provide protection against power 
surges with a Twin Outlet Power Protector 
(H, $18.95). 

Come in and see our complete line of com- 
puters and accessories. 






Send me a new 
1988 computer 
catalog. 

Mall To: Radio Shack 
Dept. 88-A-79A 
300 One Tandy Center 
Fort Worth. TX 76102 



Name. 



Address . 
City 



State . 



ZIP. 



I 



Radio /hack 



Prices apply at Radio Shack Computer Centers and participating stores 
and dealers. Accessories shown with computer components (not 
included). 
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HOW DO YOO PRESCRIBE A RAINBOW? 



It's simple — Give a RAINBOW gift certificate . 



the rainbow is the perfect 
remedy for an ailing CoCo; let a 
gift subscription perk up your 
friends' tired old computers, the 
rainbow is the information 
source for the Tandy Color Com- 
puter. 

Each month, your friends will 
enjoy the intelligent programs, 
reviews and articles written ex- 
clusively for their CoCo. 

First, your gift will be an- 
nounced in a handsome card. 
Then, all year 'round, they'll re- 
member you and your thought- 
fulness when they get each edi- 
tion of therainbow — more than 
200 pages loaded with as many 
as 24 programs, 15 regular col- 
umns and lots of helpful hints 
and tips. 

Generosity benefits the giver, 
too. There'll be no more tracking 
down borrowed copies of the 
rainbow. Your collection will be 
safe at home. 

Give a rainbow gift certificate 
and letyourfriends in on the fun. 
the rainbow is the perfect com- 
panion for the Color Computer! 

Get your order to us by Oc- 
tober 25 and we'll begin your 
friends' subscriptions with the 
December issue of rainbow. 



Please begin a one-year (12 issues) gift subscription to 

THE RAINBOW for: 

Name 



Address 
City 



_State 



ZIP 



From: 

Name 



Address 
City 



_State 



ZIP 



□ My payment is enclosed. 

Bill to: □ VISA □ MasterCard □ American Express 

Acct. # Exp. date 

Signature 

Mail to: Rainbow Gift Certificate 
The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 

For credit card orders call (800) 847-0309, 8 a.m. to 5 p.m. EST. 
All other inquiries call (502) 228-4492. 

Subscriptions to THE RAINBOW are $31 in the United States: U.S. $38 in Canada. The surface rate 
to other countries is U.S. $68; the air rate, U.S. $103. Kentucky residents add 5% sales tax. U.S. 
currency only, please. All subscriptions begin with the current issue. Please allow 6 to 8 weeks lor 
delivery. In order to hold down non-editorial costs, we do not bill. 




By Archor Wright 



This program turns your initials into 3-D letters. To 
enter your initials, press the I key and type your first 
initial; you won't see it yet, so press the I key again 
for your first initial to appear. 

To enter your other initials, just press the 2 key, type in 
your second initial, then press 2 again. Finally, press 3. type 
in your third initial, and press 3 again. 
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Now that you have three initials, jazz them up by pressing 
the zero key. Then the program starts over. 

(Questions about this program may be addressed to the 
author at 1 1 12 N. Keene Road, Clearwater, FL 33515. 
Please enclose an SASEfor a written response.) □ 

Archor Wright is a junior at Clearwater High School in 
Florida. He enjoys science and art and is an amateur 
inventor. In the past, he was a volunteer computer counselor 
at the Clearwater Library and taught people of all ages how 
to use the Co Co. 
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22 251 

44 76 

65 158 

81 6 

END 138 



The listing: 3DLETTER 



T 



'CREATED BY: ARCHOR WRIGHT 

1 PMODE4,l:PCLS:SCREENl,l:POKE17 
8,l:LINEfj3,0)-(115,45) ,PSET,BF:D 
RAW"BM116 ,0 ; S4C1D45E45" : POKE178 , 
1: PAINT (120,0) , ,l:POKE178,2:LINE 
(4, 4) -(111, 41) ,PSET,BF:LINE(7,7) 
- ( 1JZS 8 , 3 8 ) , PRESET , BF : POKE17 8 , 3 : LI 
NE(9,8)-(107,37) ,PSET,B 

2 A$=INKEY$ : IFA$="0"THENPAINT ( 10 
0,30) ,1,1:LINE(0,60)-(255,191) ,P 
SET , BF : LINE ( 2 55 , ) - ( 170 , 60 ) , PSET 
, BF : FORT=0TO2555 : NEXTT : RUN 

3 IFA$="l ,, THENGOSUB34 

4 IFA$="2"THENGOSUB3 6 

5 IFA$="3"THENGOSUB38 

6 IFA$="A"THENGOSUB40 

7 IFA$="B"THENGOSUB42 

8 IFA$="C"THENGOSUB44 

9 IFA$="D"THENGOSUB4 6 
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NEW 



DISK 
DRIVES 



Starting at 




New Low Price! 




89 



95 



with case & 

Power Supply 

129.95 



TANDON MPI TEAC 

Speed 6ms Ik to tk and up 
Capacity 250k unformatted 
Tracks 40 
Warranty now 1 Year 

SATISFACTION GUARANTEED!! 

ALL DRIVES FULLY TESTED AND WARRANTEED 

We carry only the finest quality disk drives 
no seconds • no surplus 



40 Tks 6Ms 
Double Sided 
Double Density 

40 or 80 Tracks 
Vi Hght. Teac/Panasonic 




Free Software for Drive O Systems 



CoCo Checker.. Test roms, rams, disk drives and & controller printer, keyboard cassette & more. 
Tape/Disk Utility.. .Transfers disk to tape and tape to disk. 



169 



95 



Drive 



189 



95 



Drive 



289 



95 



Drive & 1 



• Full Ht Drive 

• Single Case 

• Heavy Duty Power Supply 

• 2 Drive Cable 

• Gold plated contacts 

• Controller & manuals 



1 Double Sided Slim Line Drive 

■ Case holds 2 slim line drives 

1 Heavy Duly Power Supply 

' 2 Drive Cable 

1 Gold plated conlacts 

> Controller & Manuals 



1 2 Double Sided Slim Line Drive 

1 Case holds 2 slim line drives 

1 Heavy Duty Power Supply 

' 2 Drive Cable 

1 Gold plated contacts 

1 Controller & Manuals 



Other Drive Specials 
119 95 



Drives cleaned, aligned & tested, 29 



95 



2nd Drive 

for new Radio Shack 

includes: 

• Slim Line DS/DD Drive 

• Cabling & Instructions 

• Mounting Hardware 



Full Ht Drive 89 95 

Full Ht Drive Ps/Case 129 95 

Slim Line Drive 99 

Slim Line Drive Ps/Case. ..139 

2 Slim Drives Ps/Case 239 

Disk Controller 59 



Single Ps & Case 


44 95 


Dual '/aht Ps & Case 


54 95 


Dual Full Ht. Ps&Case.... 
Disk Controller 


79 9b 
59 95 


10 Diskettes 

with free library case 


995 


We welcome i^BBg-soi 

• Visa/Mastercard U&.IE&3 

• Checks (allow 2 weeks for clearing) 
•C.O.D. Add $2. 



Dealer Inquiries Invited 
617-278-6555 




TRUE DATA PRODUCTS 



9 South Main Street 
Uxbridge, MA 01569 
617-278-6555 

Hours: Mon.-Sat., 9-6 (EST) 



Call us today! 617-278-6555 
Order Toll Free 1-800-635-0300 



Software Included 

• Pc-Write word processor 

• Pc-Calc Spreadsheet 

• Pc-File Database 

• Print Spooler 

• Ram Disk 

• Runs all popular software 




IBM XT 
COMPATIBLE 



Complete 
system 



only 



699 



95 



Hardware Included 

• 4.77 mhz and 8mhz Turbo 

• 360k Floppy Disk Drive 

• Monochrome or Color Card 

• At style Case w/pwr light & key 

• Game, Printer and Serial Port 

• Real Time Clock 

• 150 watt power supply 

• 640k memory 

• At keyboard optional expanded 

• Monochrome Monitor 

• Optional Hard Disk Drive 



PRINTER CABLES AND 
INTERFACES AVAILABLE 
Call for current pricing 




NX10(New120CPSNLQ80col.) 199 
NX15(New120CPSNLQ 132 col.) 349 9 ^ 

PANASONIC PRINTER 

10801 (New 120CPS NLQ 80 col.) 



17995 



Complete Packages 



10801 



22995 



NX10 



259 95 



includes: includes: 

• Panasonic 10801 Printer • Star NX10 Printer 

• Interface • Interface 

• Screen Dump Program • Screen Dump Program 



TRUE DA TA PRODUCTS 




Serial to Parallel Interface 
for Color Computer I, II, III 



'300-19,200 BAUD rates 

' External to printer — No AC plugs 

1 Built in modem/printer switch — 

No need for Y-cables or plugging/ 

unplugging cables 



only 

5495 

Power supply + 5.00 



64K Upgrades 
Video Driver 



19* 
2995 



Enables your C0C0 to operate with a video monitor 
instead of a television! 





PI 


_. 1 



9 South Main Street 
Uxbridge, MA 01569 
617-278-6555 



Screen Dump Program 19 95 

The best screen dump program for the Epson & 
Star printers ever!! Have the option of standard 
images reverse w/regular or double sized pictures. 

Dealer Inquiries invited 
617-278-6555 

Call us today! 617-278-6555 

Order Toll Free 1-800-635-0300 



10 IFA$="E"THENGOSUB48 

11 IFA$="F"THENGOSUB50 

12 IFA$="G"THENGOSUB52 

13 IFA$="H"THENG0SUB54 

14 IFA$="I M THENGOSUB56 

15 IFA$="J"THENG0SUB58 

16 IFA$="K"THENGOSUB60 

17 IFA$="L"THENGOSUB62 

18 IFA$="M"THENGOSUB64 

19 IFA$="N"THENGOSUB66 

20 IFA$="0"THENGOSUB68 

21 IFA$="P"THENGOSUB70 

22 IFA$="Q"THENGOSUB72 

23 IFA$="R"THENGOSUB74 

24 IFA$="S"THENGOSUB76 

25 IFA$="T"THENGOSUB78 

26 IFA$="U"THENGOSUB80 

27 IFA$="V"THENGOSUB82 

28 IFA$="W"THENGOSUB84 

29 IFA$="X l, THENGOSUB86 

30 IFA$="Y"THENGOSUB88 

31 IFA$="Z"THENGOSUB90 

32 LINE (H, 19) -(H, 19) , PRESET: DRAW 
"CI" 

3 3 G0T02 

3 4 H=12:DRAW"S15":DRAW C$ 

3 5 RETURN 

3 6 H=42:DRAW"S15":DRAW C$ 

37 RETURN 

38 H=74:DRAW"S15" : DRAW C$ 

39 RETURN 

40 C$="R5D4L2U2L1BU1R1L1BD1D2E1G 
1L2U4E2R5G2E2D4G2 

41 RETURN 

4 2 C$="R5D2L1BL1BU1L1R1BD2L1R1BU 
1BR1R1D2L5U4E2R5G2E2D4G2 

4 3 RETURN 

44 C$="BR1G1E1R4D1L3D2R3D1L4H1U2 

E3R4G2E2D1G2BG2BL1E2BR1R2G2E2D1G 

2 

4 5 RETURN 

46 C$="BD1R4F1D2L3BU1R1U1L1D1BD1 
L2U3R4E2F1G2E2D2G2E2U2H1L4G2 

47 RETURN 

48 C$="BR1R4D1L3D1E1G1R3D1L3D1E1 
G1R3D1L4U4E2R4G2E2D1G2E2BD1L1R1G 
2E2D1G2E2BD1L1R1G2E2D1G2 

49 RETURN 

50 C$="R5D1L3D1E1G1R3D1L3D2E2G2L 
2U4E2R5G2E2D1G2E2BD1L1R1G2E2D1G2 

51 RETURN 

52 C$="R5D1L4D2R3H1R2D2L5U4R5L5E 
2R5G2E2D1G2L4D2E2G2BR2BU1E1G1BR2 
E2L1R1D2G2 

53 RETURN 

54 C$="BR1U1R1D2R2U2R1D5L1U2L2D2 
L1U5E1R1G1E1D2G1E1R1U1E1R1G1E1D5 
G1BL3E2 



55 RETURN 

56 C$="BR2R2D4L2U4E2R2G2E2D4G2 

57 RETURN 

58 C$="BR4R1D4L3U2E2R1L1G2R1E1G1 
D1R1U3R1L1E2R1G2E2D4G2 

59 RETURN 

60 C$="E2R2D1U1G2L2R2D1E3R2G2L2R 
2G2F2E2H2F2G2L2H1D1L2U4 

61 RETURN 

62 C$="BR1E2R1G2L1R1D3E2U3D3R3L3 
G2R3E2D1G2U1D1L4U4R1 

63 RETURN 

64 C$="BR1R1F1E1R1D4L1U3G1H1D3E2 
G2L1U4E2R1G2E2F1G1E2R1G2E2D4G2 

65 RETURN 

66 C$="BR.1R1F2U2R1D4J,2H2D2E1G1L1 
U4E2R1G2E2F1E1G2E2R1G2E2D4G2 

67 RETURN 

68 C$="BR1R4D4L2BU1R1U2L2D2E2G2R 
1BD1L2U4E2R4G2E2D4G2 

69 RETURN 

70 C$="BR1R4D2L2BU1L1R1BD1L1D2L2 
U4R5L5E2R5G2E2D2G2L1G2 

71 RETURN 

72 C$="BR1R4D3H1F2E2H1F1G2D1E2U1 
D1G2H2U2L2D2E2G2R2F1L4U4R4L4E2R4 
G2E2D4G2 

73 RETURN 

74 C$="BR1BD1BR1R1L1BL1BU1E2R3G2 
L3R3D2E2U2D2G2L1F2E2H1U1D1F1G2L2 
H2D2E1G1L1U4R1L1 

7 5 RETURN 

7 6 C$="BR1BU1R4D1L3D1E1G1R3E1L1R 

1D3G1U3D3L4U1E1G1R3U1L3U3E1R4G1E 

1D1G1 

7 7 RETURN 

78 C$="R5D1L2D3E2U1D1G2L1U3L2U1E 
2R5G2E2D1G2E2 

79 RETURN 

80 C$="BR1R1D3E1G1R1U3E2R1D4G2E2 
U4G2L1R1D4L3U4E2R1G2E2D1 

81 RETURN 

82 C$="BR1BD1R1F2E4R1D1G4L1R1E4U 
1G2L1R1G3H3E2R1G2E2F2 

83 RETURN 

84 C$="R1D2R1U1E1R1L1G1R1E1G1D1R 
1U2E2R1G2L1R1D4E2U4D4G2L2U1D1L2U 
4E2R1G2E2D2 

85 RETURN 

86 C$="R2F1E1R2G2F2E2H2F2G2L2H1G 
1L2E2H2E2R2G2E2F1E1G2E2R2G2 

87 RETURN 

88 C$="BR1R1F2E2R1G2D2E2U2D2G2L2 
U2H2E2R1G2E2F2E2R1G2 

89 RETURN 

90 C$="BD1R5G2R3E2L3R3D1G2E2U1G2 
D1L5E2L3U1E2R5G2 

91 RETURN /» 
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The Professional 
Color Computer 



Enhancements 
for Productivity 
from HJL Products 



nance with any computer, 
you have io gel information into and out 
o( the system as easily as possible. 

This Is the purpose of the HJL family of 
professional enhancements for ALL 
MODELS of the Color Computer, 
Including CoCo3. 

The Self-contained 
ProCase-57 Keyboard • S79.95 

It's the popular HJL keyboard perfectly 

us own sleek, low-profile 
case. Put your CoCo on a shelf or hang 
ii on the side of your desk. ProCase-57 
comes with 5-foot cable; installs In 
Just a few minutes with no soldering. 

The HJL-57 

Keyboard Kit - $59.95/69.95 

Overwhelming favorite of serious CoCo 
users worldwide, the HJL-57 keyboard 
provides the smooth consistent feel and 
reliability you need for maximum speed 
with minimum input errors. Installs in 
your color computer without soldering. 
Just $59.95 for Original or F-verslon. 
Kits for CoCo 2 and CoCo 3 are $69.95. 

The NumberJack Keypad • $59.95 

A sell-contained numeric keypad for 
serious number-crunching. Besides Ihe 



numbers, It has all the cursors, symbols 
and math keys, including autoshlfted 
ADD and MULTIPLY. Includes cable and 
connectors forsolderless Installation, 

The Monitor Adapter • $25.95 

This universal driver works with all 
monochrome monitors. Easily Installed 
without clips, lumpers or soldering 
(except some CoCo 2s with soldered-ln 
video chips), Here's crisp, flicker-free 
monitor output with all the reliability 
you ve come to expect from HJL Products. 

The Monitor $99.95 

Our high-resolution amber monitor gives 
you the display preferred by most 
computer pros. Once you've used It, 
you'll never go back to the TV set. 
12-Inch CRT has etched non-glare face- 
plate. (Requires adapter sold above) 

Quick Basic Plus $19.95 

High-perlormance programming aid works 
with any CoCo that has4 function keys. 
26 one-touch BASIC statements, 10 user- 
defined macros at a time (save as many 
sets of macros as you like), auto line- 
numbering, Instant screen dump to 
printer, and global search, make this 
software ideal for any BASIC programmer. 
Specify disk or cassette. 



The Softswitch $89.95 

Connect any two parallel printers to one 
computer; select printers manually 
Insert a simple printer code In the text 
to be printed tor fully-autoinaii 
solid-state switching. Complete with 
three cables and operating insl 

The HJL Warranty 

Every HJL product comes with a full, 
one-year warranty and the exclusive HJL 
15-day unconditional guarantee (except 
software). 

Pick a Pair and Save 1 5% 

Take 15% off Ihe price of any two or 
more products shown here Just m< 
this ad when you order. 



Call Now, Toll Free 

1-800-828-6968 

In New York 1-800-462-4891 
International oalis: 71B-235-B3BB 



Ordering Information Speqlly model (Original, F-voralon, or CoCo 2 Model Number). Payment by C.O.D., ohocK, 
MaMorCnrd, or Visa Ciodll card customers Include complete card rtumbei and expiration riuio. Add JiOl 

lO, 3.50 to Conado; except monitors tcoll lor shipping charges bolcuo ordering monitors). New VorK olalo 
roeldenta ado 7% salos tax Dealer Inquiries Invited 




955 Buffalo Road • P.O. Box 24951 
Rochester, New York 14624 



It Itiliti 



A Desktop Publisher 
on a Shoestring 



By H. Allen Curtis 
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Desktop publishing is riding the 
crest of popularity in business 
computing. It is also widely 
appealing to the individual who would 
like to produce attractive newsletters, 
schedules, greeting cards, pamphlets, 
ads, and so on. Unfortunately, desktop 
publishing is too costly for the typical 
CoCo owner. 

The great popularity and expense of 
desktop publishing provided the inspi- 
ration for the development of the shoe- 
string desktop publisher presented in 
this article. The requirements for using 
the publisher are a CoCo 1, 2 or 3, 
Extended Color basic, 32K RAM, a 
disk system and a dot matrix printer. 

The main program comprising the 
desktop publisher has two versions — 
one for CoCos I and 2 and the other for 
the CoCo 3. The CoCo I and 2 version 
is called Desktop Low (for low resolu- 
tion) and is shown in Listing 1. The 
CoCo 3 version. Desktop High, is 
presented in Listing 2. Listings 3 and 4, 
GF.NF0NT1 and GENF0NT2 generate two 
data files called F0NT1 and F0NT2, and 
are necessary for the running of either 
Desktop Low or Desktop High. Each of 
the DATA files is a fancy font for 84 of 
the CoCo's character keys. Henceforth, 
Desktop Low and Desktop High will be 
referred to as DL and DH. respectively. 

DL and DH have been designed to 
work with eight other fonts. The details 
on how you can obtain the additional 
fonts are given at the conclusion of this 
article. 

Type and save Listing 3 first. Then 
run it to obtain the F0NT1 file necessary 
for the proper execution of DL or DH. 
Next, type and save DL or DH depend- 
ing on which CoCo you are using. After 
you get DL or DH working properly, 
type, save and run the program of 

H. Allen Curtis lives in Williamsburg, 
Virginia. He is interested in 17th and 
18th Century history and enjoys hiking 
through the colonial Capital. He balan- 
ces past and present with his computer 
work. 
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Listing 4 to make a second font choice 
available for your use. Note: If you have 
a CoCo 3, augment each of the listings 
3 and 4 by inserting WIDTH32: before 
CLS in Line 0. 

Each of the programs is easy to learn 
because of its menus and information 
list. For DL or DH, you must remember 
that when in doubt, press the CLEAR key 
or the function key F2, respectively. In 
their respective programs, these keys 
summon the main menu to the screen 
(see Figure I). Via the main menu, you 
can gain access to other menus and the 
information list, as well as carry out DL 
or DH commands and return to the 
graphics screen. 

On the graphics screen, you can 
compose documents. DL or DH acts as 
a rudimentary screen editor. An infor- 
mation list accessible through the main 
menu describes the keys needed for 



CHT HPPOII HOVE C'lfEO' P'.r,m 

■ - )U e-ci sf~. : 
JPPOU CARRIAGE return 
move up 1 u i he 
un arrqu tab 

ft picht arrou dram de! ; :■■■ 
- Left aprou cle-p lime 

iiii flPPOii UMEILXNE 
sen-.!. 
. -Tuiti •. 

MOVE (QSfl 1 Ll'iE 

hitt e uppep'l:iije- Erse 
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LEAP 
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Figure 2 



cursor control in working your way 
around the screen (see Figure 2). DL or 
DH commands on the main menu are 
also available to set top, left and right 
margins of the screen, to set tabs, and 
to enable or inhibit word wrap. Word 
wrap is the automatic erasing of an 
incomplete word from the very end of 
one line and rewriting it at the very 
beginning of the next line. The spacing 
between characters and at the begin- 
nings of lines is better in DLlhan in DH 
due to idiosyncracies of the CoCo 3's 
HGET, HPUT and HBUFF commands. 

Usually, the CoCo's garbage collec- 
tion routines, used periodically to clean 
out memory space for strings to be 
stored, have a decided slowing effect on 
allowed typing rates. Programming has 
been incorporated in DL and DH to 
minimize these effects. Also, high-speed 
pokes have been included for additional 
typing rate increases. If your CoCo 1 or 
2 does not support the high-speed poke, 
omit POKE&HFFD7,0 from Line 340 of 
Listing 1. 

Besides being able to type with a 
variety of fonts, you can further dress 
up your documents with border designs 
(see Figure 3), which are drawn by 
means of a key whose associated design 
is selected from the DL or DH main 
menu. The default design (the design 
available before you make a selection) 
is the face of CoCo Cat. He was given 
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XTEAM 
OS-9 




WINNERS! 



S A I of our OS-9 products J 
X work wlih: 



OS-9 version 1 
OS-9 version 2 
OS-9 Level 2 



XTERM 

OS-9 Communications program. 

• Menu oriented ■ Definable macro keys 

• Upload/download. Ascii ■ Works with standard serial port, RS232 
or XMODEM protocol PAK, or PBJ 2SP Pack. Includes all drivers. 

• Execute OS-9 commands ■ Works with standard screen. XSCREEN, 
from within XTERM WORDPAK or DISTO 80 column board. 

$49.95 with source $89.95 



-■:-"-.-■—■■ j •■:•■•■-■:■■■■:■:■:■ 



XDIR & XCAL 



Hierarchial directory 

• Full sorting 

• Complete pattern matching 



$24.95 



OS-9 calculator 

• Decimal, Hex, Binary 

■ +. -. *, /, AND.OR, XOR. NOT 

with source $49.95 



XDIS 

OS-9 disassembler 
$34.95 with source $54.95 



HARDWARE 

512k memory upgrade 

Printers 

Citizen 120D 
StarNPIO 




CALL 
CALL 



XWORD 

OS-9 word processing system 

. Works with standard text screen. XSCREEN, WORDPAK. or DISTO 

• Tnic character oriented full screen editing 

• Full block commands 

• Find and Replace commands 

• Execute OS-9 commands from within 

• Proportional spacing supported 

■ Full printer control, character size, emphasized, italics. 
ovcrstrike, underline, super/sub- scripts 

• 10 header/footers 

• Page numbering in decimal or Roman numerals 

• Margins and headers can be set different for even and odd pages 

$69.95 with source $124.95 

XMERGE 

Mail merge capabilities for XWORD 
J»<:4.yb with source$49.95 

XSPELL 

OS-9 spelling checker, with 20000 and 40000 word dictionaries 

$39.95 
XTRIO 

XWORD/XMERGE/XSPELL 
$114.95 with XWORD/XMERGE sourc* 199.95 

XED 

OS-9 full screen editor 
$39.95 with source $79.95 
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SMALL BUSINESS ACCOUNTING 

This sales-based accounting package is designed 
for the non-accounting oriented businessman. It 
also contains the flexibility for the accounting ori- 
ented user to set up a double entry journal with an 
almost unlimited chart of accounts. Includes Sales 
Entry, transaction driven Accounts Receivable and 
Accounts Payable, Journal Entry, Payroll Disburse- 
ment, and Record Maintenance programs. System 
outputs include Balance Sheet, Income Statement, 
Customer and Vendor status Reports, Accounts 
Receivable and Payable Aging Reports, Check Reg- 
ister, Sales Reports, Account Status Lists, and a 
Journal Posting List. $79 95 

INVENTORY CONTROL/SALES ANALYSIS 

This module is designed to handle inventory control, 
with user defined product codes, and produce a detailed 
analysis of the business' sales and the sales force. One 
may enter/update inventory data, enter sales, run five 
sales analysis reports, run five inventory reports, set up 
product codes, enter /update salesman records, and 
update the SB AP inventory. $59.95 



PAYROLL 

Designed for maintaining personnel and payroll 
data for up to 200 hourly and salaried employees 
with 8 deductions each. Calculates payroll and tax 
amounts, prints checks and maintains ycar-to-datc 
totals which can be automatically transferred to the 
SBA package. Computes each pay period's totals 
for straight time, overtime and bonus pay and det- 
ermines taxes to be withheld. Additional outputs 
include mailing list, listing of employees, year-to- 
daic federal and/or state tax listing, and a listing of 
current misc. deductions. Suited for use in all stales 
except Oklahoma and Delaware. $59.95 



PERSONAL BOOKEEPING 2000 

Handles 45 accounts. Enters cash expenses as 
easily as checks. Handles 26 expense categories. 
Menu driven and user friendly. $39.95 



ACCOUNTS RECEIVABLE 

Includes detailed audit trails and history reports 
for each customer, prepares invoices and monthly 
statements, mailing labels, aging lists, and an alpha- 
betized customer listing. The user can define net 
terms for commercial accounts or finance charges 
for revolving accounts. This package functions as a 
standalone A/R system or integrates with the Small 
Business Accounting package, $59 95 



ACCOUNTS PAYABLE 

Designed for the maintenance of vendor and A/P 
invoice files. The system prints checks, voids 
checks, cancels checks, deletes cancelled checks, 
and deletes paid A/P invoices. The user can run a 
Vendor List, Vendor Status report. Vendor Aged 
report, and an A/P Check Register. This package 
can be used cither as a standalone A/P system or 
can be integrated with the Small Business 
Accounting Package. $59 95 



MICROTECH 
CONSULTANTS 

Ilk I g~\ 1906 Jerrold Avenue 
1^ ^ .St. Paul, MN 55112 

Dealer Inquiries Invited 
Author Submissions accepted 
OS-9 i, a <ra,t<m a rk of Micrwr, 




Ordering Information 

Add S3.00 shipping & handling, MN residents add 6% sales lax. 
Visa, Mastercard, COD (add S2.50), personal checks. 



(612) 633-6161 



this honor in appreciation of the mot- 
ivation he inspired in the development 
of CoCo 3 screen mode switching (see 
"Our Highfalutin' Feline Does a CoCo 
3 Fandango," on Page 52, May 1987 
issue of THE rainbow), which was 
crucial in the formulation of DH. 

DH permits the use of a Mode 1 or 
Mode 3 screen as well as switching back 
and forth from these two modes. Mode 
switching allows you to incorporate the 
large size print and/ or border designs of 
Mode 1 into a Mode 3 screen document 
with its smaller print and design sizes. 
The smaller print and designs of Mode 
3, when switched to Mode 1, undergo 
deformation. Fortunately, they regain 
their pleasing shapes when a switch is 
made back to Mode 3. 

DL employs a PMODE 4 graphics 
screen only. However, you are given a 
choice of either of the available two- 
color sets of PMODE 4. Furthermore, you 
may swap foreground and background 
colors, but for proper operation you 
must clear the screen just before or after 
making the swap. DH allows color 
swapping, too, and you needn't accom- 
pany the swap with a screen clear. 

Both DL and /)// provide facilities 
for saving and loading screens as disk 
files. In both saving and loading, you 
must furnish (when prompted) a file- 
name without an extension. In loading, 
the filename must necessarily be that of 
a file on the disk in the default drive. 
The loaded screen may be one that you 
composed using DL or DH or a graph- 
ics screen derived by the employment of 
some other program. In the case of a 
PMDDE 4 screen from another program, 
it must have been recorded from the 
video page whose starting and ending 
addresses are 3584 and 9727, respec- 
tively. The use of screens from other 
programs in DL and DH permits 
greater versatility in blending graphics 
and text in your documents. 

The DH save and load routines were 
patterned after the HISflVE and HILOAD 
routines developed by Richard Esposito 
in his "Doctor ASCII" column (Janu- 
ary 1987 issue of THE RAINBOW). HI- 
SflVE and HILOAD were designed to 
work in short programs and long pro- 
grams but not in medium-sized pro- 
grams where string location informa- 
tion resides in the memory area from 
hexadecimal addresses 4000 to 5FFF 
DH is a program of the latter class. Its 
save and load routines were adjusted to 
work properly by the use of "dummy" 
filenames during the actual loading and 
saving processes (when the true file- 
name string is lost) and then renaming 



the files to their true filenames after the 
string information is once more avail- 
able. This means that when saving a 
screen, you must not choose a filename 
of a file already on disk. Otherwise, the 
RENAME command will induce an AE 
Error. 




"You can work on 

two Mode 1 or 
Mode 3 screens and 

switch back and 
forth between them" 






There is one command noticeably 
lacking in both DL and DH — a line 
print command. To obtain a hard copy 
of a screen, you must terminate DL or 
DH with an exit command, load an 
appropriate screen dump and run it. If 
you have a CoCo I or 2 but no screen 
dump program for your particular 
printer, refer to back issues of THE 
RAINBOW (see Richard Lack's "Get the 
Picture With Gemini Screen Print" 
[May 1985. Page 45] and Mark Sullins' 
"Picprt: Good Things Come in All 
Sizes" [May 1986, Page 72] ) to remedy 
the situation. If you have a CoCo 3 and 
a dot matrix printer 1 recommend that 
you use one of the three programs listed 
in this month's "Screen Dump Extraor- 
dinaire" beginning on Page 30. If you 
are using a printer capable of printing 
a column of eight dots at each print 
position as the print head moves across 
the page, the program called SCRNDMP 
shown in Listing 1 may be used. 

There is one innovation included in 
DH worth pointing out for its applic- 
ability in other programs. The employ- 
ment of the innovation doubles the 
amount of screen memory usable for 
Mode 1 and Mode 3. The high resolu- 
tion graphics screen is located in 32K 
bytes of memory from Hex address 
60000 through 67FFF. Each of the 
Mode I and Mode 3 screens uses only 
the first I6K bytes of this memory area. 
Line I of DH installs a short machine 
language routine that interchanges the 
contents of the first and last I6K. bytes 
of the screen memory area. You can call 



for the screen interchange in DH by 
making use of the main menu command 
S (screen switch). Thus, you can work 
on two Mode I or Mode 3 screens and 
switch back and forth between them. 
Two such screens correspond to one 
full, 8'/i-by-II. printed page when 
5CRNDMP controls the printing. One 
word of caution: Use of the SHIFT- 
CLEAR key combination will clear all 
32K bytes of the screen memory. 

SCRNDMP was originally designed to 
handle only the screen at the first I6K 
bytes of the screen memory area. The 
following changes in SCRNDMP allow it 
to print each of the two screens in 
succession. 

Change Line 35 to: 

35 POKEX+145,22:POKEX+14G,0: 
POKEX+147 , 152 : Q$= "308DFF2 
7EC84C1712G0BC30202ED841G 
FF11830202EDB417FEEDB60D1 
GFF4A" : FORI =0T030 : TS=LEFT$ 
(Q$,2):POKEX+I+300,VAL 
( "&H"+TS) :Q$=RIGHTS(QS, 
LEN(q$)-2):NEXT 

Change Line 370 to: 

370 'SAVEM"SCRNDMP2",&H1200 
,&H13 4A,X+73 

Editor's Note: The font menu (see 
Figure 4) of DL or DH provides small 
samples of each of 10 different fonts. 
However, due to space limitations, only 
the files which generate fonts I and 2 are 
listed in the magazine, therefore, you 
will only he able to choose between 
fonts I and 2. Selection of any other 
font or pressing a non-number key will 
result in a beep sound and a return to 
the graphics screen. 



I: ."'V Itt 




2: Font 




3: .fl'Ilt 




i: Four 




5: Font 




6: Font 




7: ■ 




8: To.it 




9: cent 




a: 




Figure 4 i 



The additional eight font files, FDNT3 
through FONTS' and FONT0. may be 
obtained by ordering them from II. 
Allen Curtis at 172 Dennis Drive. 
Williamsburg. V A 23185. The complete 
cost of the disk containing eight font 
files is $6.50. Please include payment by 
check or money order. □ 
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Listing 1:DESKTGPL 

CLS: PRINTS 201, "DESKTOP LOW": PR 

INT@2 62,"BY H. ALLEN CURTIS" : PRI 

NT@296 , "COPYRIGHT 1987" : FORI=0TO 

500: NEXT 

5 CLEAR5000:W=256 

10 K$=K$+"C":A1=PEEK(VARPTR(K$)+ 

2) :A2=PEEK(VARPTR(K$)+3) :IFA2<2T 

HENA2=254:A1=A1-1:G0T02 5ELSEA2=A 

2-2:GOT02 5GOT02 5 

15 GOSUB440 : CLS : PRINT@200 , "FILEN 

AME: " ; :LINEINPUTF$:SAVEMF$+"/LR 

" , &HE00 , &H2 600 , &HAC7 3 : RETURN 

20 GOSUB440 : CLS : PRINT@200 , "FILEN 

AME : " ; : LINEINPUTF$ : LOADMF$+"/LR 

" : RETURN 

25 L2=1:P=176:D=15:S=8:DIMF$(84) 

,M(84) ,R(500) ,S(100) ,F(500) ,G(20 



0) :GOSUB565:F$(0)=D$(7) :M(0)=D(7 

) : PMODE4 : PCLS1 : COLOR0 , 1 : C2=l 

30 GET(0,0)-(1,D) ,S 

35 GET(18 / 20)-(113,170) ,R,G:GET( 

18,20) -(113, 170) ,F,G:K$="l":GOTO 

310 

40 PCLS:T=V:L=U 

45 IF(Q=0 OR Z=U) AND L+4>W-1THE 

NL=U:IFT<P THENT=T+D+1 

50 IFQ=1 AND ZOU AND L+4>VJ-1THE 

NGOSUB175 

55 GET(L,T)-(L+1,T+D) ,S:LINE(L,T 

)- (L+l, T+D) ,PSET,BF 

60 POKE&H23,A1:POKE&H24,A2 

65 K$=INKEY$:IFK$=""THEN65 

70 K=ASC(K$) :IFK>64 AND K<91THEN 

N=K-64 : B=N : LINE (L, T) - (L+l , T+D) , P 

RESET, BF:GOTO160 

75 IFK>96 AND K<12 3THENN=K-96 : B= 

N+2 6:LINE(L,T)-(L+1,T+D) , PRESET, 

BF:GOTO160 

80 IFK>47 AND K<58THENN=K-47 : B=N 

+52 : LINE (L,T)- (L+l, T+D) , PRESET, B 

F: GOTO 160 

85 IFK>32 AND K<48THENN=K-32 : B=N 

+62 : LINE (L,T)- (L+l, T+D) , PRESET, B 

F:GOTO160 





UINOOC, MilEMV 

^uqj-^u Dude 

An exciting new arcade game by Glen Dahlgren. This is the long-awaited response to the 
huge demand lor a Kung-Fu program for the Coco. The graphics and sound effects are 
spectacular. The action and animation will please even the most die-hard arcade en- 
thusiast. Destroy your opponents and evade obstacles with over ten different moves as you 
grow ever closer to your ultimate objective. This is the BEST karate game ever available for 
the color computer. Req. 64K. disk drive, and joystick. Introductory price: only S24.95. 



WHITE FIRE OF ETERNITY. Enlei the age ol monsters, 
mogic. and adventure Here you will search lor the 
legendary power ot White Fire throughout the Forbid- 
den Wood and dark caverns ol the Mount The Rainbow 
review ol 12/86 says. "Visually. White Fire is quite an 
achievement The graphics are excellent!" Discover 
what adventuring an the Coco Is alt about Req. 6dK and 
disk drive. Only S'995 



CHAMPION. Become a superhero in your fight to rid the 
world ot the evil forces ol Mr. Bigg in this action adven- 
ture. The combat is hot and heavy and requires a last 
loystick The graphics and sound eltecls are sensational 
"This is a fascinating game and a difficult one to master. 
Vou'll get a blast out ol (Champion)l" says the Rainbow 
review ol 5/87. Defend the innocent and defeat the 
villainous; be a true Champlonl Req. MK, disk drive, and 
joystick. Only SW.95 



All programs Coco 1. 2, 3 compatible. 



anDoa 

s.vstc'rrjs <-> 



Systems 



lift 



Sundog Systems 

21 Edinburg Drive 
Pittsburgh. PA 15235 
(412) 372-5674 

Personal checks, money orders, and COO orders 
accepted. 




Include $2.50 for S/H. $2.00 
extra for C.O.D. orders. PA 
residents add 6% sales tax. 
Authorship and dealer inquiries 
welcome. 
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90 IFK>57 AND K<65THENN=K-57 : B=N 
+77 : LINE (L,T)- (L+l, T+D) , PRESET, B 
F:GOTO160 

95 IFK=3 2THENZ=L+S:IFL+8<W THENL 
INE(L,T) -(L+7,T+D) , PRESET, BF: L=L 
+S:G0T045ELSELINE(L,T)-(L+1,T+D) 
, PRESET , BF : L=U : T=T+1+D : GOT045 
100 IFK=13THENPUT(L,T)-(L+1,T+D) 
, S : L=U 

105 IFK=13 AND T<P THENT=T+1+D: G 
OT045 

IIP IFK=8 AND L>lTHENLINE(L,T)-( 
L+1,T+D) , PRESET, BF: L=L-2 : G0T04 5 
115 IFK=9 3THENB=0:LINE(L,T)-(L+1 
, T+D) , PRESET , BF : GOTO160 
120 IFK=94THENPUT(L,T)-(L+1,T+D) 
,S:L=U:IFT>D THENT=T-l-D:GOT045 
125 IFK=91THENZ=U:PUT(L,T) -(L+l, 
T+D) , S : DRAW"BM"+STR$ (L) +» , "+STR$ 
(T+1+INT( .75*D) )+"R3":L=L+4:IFL> 
W-5THENL=L-4 

130 IFK=9 AND L+4<W THENPUT(L,T) 
-(L+l, T+D) ,S:L=L+4:GOT04 5 
135 IFK=92THEN40 

14/3 IFK=12THENPUT(L,T)-(L+1,T+D) 
,S:GOTO200 

145 IFK=10THENPUT(L,T)-(L+1,T+D) 
, S : IFT3=0THENT3=1 : L=T1 ELSEIFT3 = 
1THENT3=0:L=T2 

150 IFK=21THENPUT(U,T)-(W-1,T+D) 
,R,PSET:L=U:GOT045 
155 GOT045 

160 IFL+M(B)<W THENGOSUB195:L=L+ 
2+M(B) :IFL>W-1THENL2=L-W+1:L=W-1 
:GOT045ELSE45 

165 IFQ=0 OR Z=U THENL=U: IFT<P T 
HENT=T+D+1 : GOTO70ELSE70 
17)3 GOSUB175:GOTO70 
175 Z1=2*INT(.5*Z) :Z=Z1 
180 GET(Z,T)-(L,T+D) ,G,G:PUT(Z,T 
) - ( L, T+D ) , R , PSET : L1=L-Z : L=U : Z=U : 
IFT<P THENT=T+D+1 

185 IFL+LK0THENL1=L1+2:GOTO185 
190 PUT(L,T)-(L+L1,T+D) ,G,PSET:L 
=L+L1+L2 : L=2 *INT ( . 5*L+ . 5 ) : L2=0 : R 
ETURN 

195 DRAW"BM"+STR$(L)+","+STR$(T) 
+F$(B) : RETURN 

200 CLS:PRINT@40,"B: BACK TO SCR 
EEN":PRINT@72,"C: COLOR SWAP": PR 
INT@104,"D: DESIGN SELECT" : PRINT 
@13 6,"F: FONT SELECT" : PRINT@168 , 
"I: INPUT" :PRINT@200,"K: KEYS LI 
STED":PRINT@232,"M: MARGIN SPECI 
FY":PRINT@2 64,"0: OUTPUT 
205 PRINT@296,"S: SWITCH COLOR S 
ET":PRINT@328,"T: TAB SET": PRINT 
@3 60,"W: WORDWRAP SET" : PRINT@3 92 



,"X: EXIT DESKTOP" :POKE&H2 3, A1:P 

OKE&24 , A2 : POKE&HFFD6 ,0 

210 K$=INKEY$:IFK$=""THEN210 

215 IFK$="D" OR K$="d"THENGOSUB6 

15:GOTO200 

220 IFK$="F" OR K$="f "THEN285 

225 IFK$="C" OR K$="c"THENC3=C2 : 

C2=C1 : C1=C3 : COLORC1 , C2 : GOTO200 

230 IFK$="I" OR K$="i"THENGOSUB2 

0:GOTO200 

235 IFK$="K" OR K$="k"THENGOSUB5 

40:GOTO200 

240 IFK$="0" OR K$="o"THENGOSUBl 

5:GOTO200 

245 IFK$="M" OR K$="m"THENGOSUB4 

55:GOTO200 

250 IFK$="B" OR K$="b"THEN280 

255 IFK$="T" OR K$="t"THENGOSUB5 

25:GOTO200 

260 IFK$="X" OR K$="X"THENEND 

265 IFK$="S" OR K$="s"THENC=ABS ( 

C-l) :GOTO200 

270 IFK$="W" OR K$="w"THENGOSUB5 

00:GOTO200 

275 SOUND60,5:SOUND60, 3 :GOTO200 

2 80 SCREEN1,C:GOTO3 40 

285 GOSUB345 

290 POKE&H23,Al:POKE&H24,A2 

295 K$=INKEY$:IFK$="" THEN295 

300 IFK$<"1" OR K$>"2" THENSOUND 

60,10:GOTO295 

305 GOSUB440 

310 GOSUB450 

315 OPEN"I",#l,"FONT"+K$ 

320 F0RI=1T084:LINEINPUT#1,F$(I) 

:NEXT 

32 5 F0RI=1T08 4:INPUT#1,M(I) :NEXT 

330 INPUT#l,D,S:CLOSE#l 

335 PUT(18,20)-(113, 170) ,F, PSET 

340 SCREEN1,C:G0SUB495:GET(L,T)- 

(L+1,T+D) ,S:POKE&HFFD7,0:GOTO45 

345 SCREEN1,C:GET(18,20)-(113,17 

0) ,F,G: PUT (18, 20) -(113, 170) ,R,PS 

ET:DRAW"BM2 5,28NGD6NL2RNR2U6BM3 2 

,29RDLBD3RDL 

350 DRAW"BM50,24G3ERE2R4GNL3G4D5 

EU4BR2D5G4UH2LG2ER3FERE2URUE2NFG 

2U4E4F2DH2DFBM64 , 29G2ND4LD4NHFRE 

2NU5RU4FBM72 , 29G2RD4NHFNEU4NU2E3 

ND6FNFD6E2BM83 , 25G3LR3NR2NUD8NE2 

H2RU5 

355 DRAW"BM24,43NGNDR3ND2FDGL2NG 

2DG2R5ULBM3 2 , 44RDLBD3RDL 

360 DRAW"BM49,43R6NDNGL5D3NR3D3N 

LR2HU4BM59 , 45ND3GD2FR3NU3EU2HL2B 

M66,45D4RU4R3D4RU3BM76,43ND5G2NR 

4FD2FRE 

365 DRAW"BM24,62NGNDR3ND5FDGNL2F 
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IRON CROSS 

War in Russia 

by John & Michael Galus 
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The German invasion of Russia 
began at 0300 on 22 June 1941. 
Two massive armies faced each 
other in a titanic struggle which 
would decide World War II. The 
object of IRON CROSS is to 
defeat the Russian forces con- 
trolled by the computer & to 
take control of the Russian cities. 



tflOU 



Requires 64K, Ext. Basic, Disk. $24.95 



Color Max 3 







Now 320 x 200 screen resolution & a choice of 
16 of the 64 colors are available on your CoCo *y aMH\ 
3. Painting is a snap with its easy to use icons, rr l yV v \|' 
pull down menus, & dialog boxes. Color Max 3 has 1 1 fonts mak- 
ing hundreds of lettering styles possible Please specify printer type 
when ordering. 

Req. 128K, disk, hires joystick Interface S 57.50 



Colorbowl Football 

by David Klncald 

Choose from a variety of plays on 
offense & defense like screens, 
sweeps, bombs, & slants. You con- St^ 
trol the quarterback or roving ^ 
safety w/joystick. 

Req. 32K, RSDOS, & joystick 
Cass S24.95 Disk S27.95 



Pro Golf 

by John Sandberg 
Tee off into a challenging com- 
puter simulation of 36 holes of 
realistic golf plus practice sessions 
with the putting green & driving 
range I 

Req. 32K. RSDOS, Ext. BASIC, 
joystick & Disk S 29.95 





OS-9 Tools 



Screen Star 

by Scott Cabit 



This excellent screen editor implements the popular WordStar edit- 
ing capabilities on OS-9 & includes a unique Speller. Move, copy, 
or delete blocks of text with one keystroke. Powerful cursor com- 
mands allow fast, easy movement throughout the file, The find/ 
replace command makes mass changes & searches a snap. Set tabs, 
toggle the video, access the OS-9 shell & define up to 10 function 
keys for fast repetitive functions. And it will edit files larger than 
memory tool Easy interface with Computerware's Text Format- 
ter makes an exquisite word processing packagel 



Requires OS-9 
With Text Formatter 



S49.95 
S74.95 



OS-9 Text Formatter 

The OS-9 Text Formatter turns text files into beautifully printed 
documents. It supports right & left Justification, automatic pagi- 
nation, headers & footers, macros, tabs, page numbering, auto 
date insert. ESC & CTL codes for printer directives & more. It inter- 
faces with any editor that produces standard ASCII text files like 
Computerware's Screen Star & Radio Shack's TS Edit. Whyjust print 
it when you can format it?l 



Requires OS-9 



S34.95 



Call or Write to: 




Item 



Format 



Price 



COMPUTERWARE l'") 436-3512 

~5^" Box 668 • Enclnltas, CA • 92024 



Name 

Address . 
City 



Yesl Send me your FREE catalogl 

VISA MasterCard 

Card = 



. State . 



Signature . 



-Zip. 
CoCo □ 



.Exp.. 



Shipping 6% Calif Sales Tax . 

Surface — S2 minimum. COD Add S5. 

2% for orders over SI00 Shipping" . 

Air or Canada— S5 minimum. TOTAL. 

5% for orders over SI00 
Checks are delayed lor bank clearance 




coming soon . . . 

Computerware's new fall catalogl 
Call or write for your copy today! 



DGL3ULBM3 2 , 63RDLBD3RDL 
3 7,0 DRAW"BM50,56R5BR2DNLNRDRNRDR 
E2BL7L5DLNGBR5G2ND8GD8BDBL2L2DR2 
DFNDRURE2U9NE3RD3ND4REFBM64 , 61G2 
ND6LD5LF2RE2NU7RU6FBM72 , 61NG2D3E 
3DRFLD7NE2HNU6BL2GNU5LNHU7BM83 , 5 
7G2RD11NE2H2RU8L2R5 
375 DRAW"BM2 6,81G3DE4D6NLRNRU2NR 
NL4U4BM32 , 82RDLBD3RDL 
380 DRAW"BM46,78R11D2RHL2BL6D6R3 
D2ENRHL3D6GU13LBM62 , 82G3D2F3R5E3 
U2H3L4G3D2F3R3E3U2H2BM72 , 82R3GNL 
D7RU5NU2E3R2DRD7LNUE2U4BM88 , 80DL 
GR7NR5G5UNE2FDRDRDR4E2 
385 DRAW"BM23,98NR5D2EDR3ND3FD2G 
L3ULBM32 , 99RDLBD3RDL 
390 DRAW"BM48,96NR6D8RU4NU3R3BM5 
6,99ND4GD3FR4NU5EU3HL3BM64,99D5R 
U5R4D5U4BM74 , 9 6D7FRHU5NL3NR2U2 
395 DRAW"BM25,110NR2G2D3FR3NU2EU 
HL3ND2UEBM3 2 , 111RDLBD3RDL 
400 DRAW"BM48,109R7NDL6D8NLR2HU3 
NU3R3NUDBM58 , 112ND4GD3FR4NU4EU3H 
L3BM66,112RD5NLR2HU3ER3D5NLR2HU3 
BM79 , 109D8REBL3U4NR3NL2U2 
405 DRAW"BM23,12 4NDNFR5D2HDG2D2R 
U2EBM32 , 125RDLBD3RDL 
410 DRAW"BM52,123R4NFL4G2D2NR3D4 
BM60 , 125G2D2F2R2E2U2H2LBM68 , 125N 
D6FER2F2D4BM78 ; 123DND7GR4 
415 DRAW"BM24,136ND5GDFGDFR3NU5E 
UHNL2EUHL2BM32 , 137RDLBD3RDL 
420 DRAW"BM50,13 6NGR3NR4D4L2NGR3 
NU3NR2D2HD2GL3BM62 , 138G2DED2R3E2 
UGU2L2BM70,138NGD4RUNU3E3RD4RNEU 
3BM81, 136D6R2NEL2HU4GR4 
425 DRAW"BM24,149ND2GDFR3DG2NLRE 
2U3HND2L2BM3 2,150RDLBD3RDLBM50,1 
48NG3NR7ND3FD3NR4L3NGR3ND7LD8GL3 
BM6J3 , 148G3NRF2NU3R3E2NU2LU3L2BM6 
8,148G2RD3RU2NU2E3RD5RNE2U4BM79, 
147NG2D2NR2ND3LD3FR2E2 
430 DRAW"BM24,163ND5GD4FR3U5G2DE 
3ND4HL2BM32,164RDLBD3RDLBM50,164 
NR3D2NR2D3BM56,166GDFREUHBM61,16 
6D2NDE2FD2BM68 , 164D2NLNRD2FE 
435 RETURN 

440 POKE&H23,Al-l:POKE&H24,A2:RE 
TURN 

445 POKE&H23,Al-2:POKE&H24,A2:RE 
TURN 

450 POKE&H23,Al-3:POKE&H24,A2:RE 
TURN 

455 GOSUB440 : CLS : PRINT@129 , "ENTE 
R TOP MARGIN (0 - 10): ";:LINEIN 
PUTV$ 

460 PRINT@193, "ENTER LEFT MARGIN 
(0-200): ":PRINT@220,""; 



4 65 GOSUB44 5:LINEINPUTU$:V=VAL(V 
$) :U=VAL(U$) :Z=U 
470 IFV<0THENV=0 
47 5 IFV>10THENV=10 

480 IFU>W-50THENSOUND60,3:PRINT@ 
2 62, "LEFT MARGIN TOO BIG": PRINT" 
RELATIVE TO RIGHT MARGIN!": PR 
INT@330,"TRY AGAIN. ": GOT04 60 
4 85 IFU<0THENU=0 
4 90 IFH=3 AND U>400THENU=400 
495 P=V+(D+1) *(-l+INT( (192-V)/(D 
+1) ) ) :L=U:T=V: RETURN 
500 CLS:PRINT@194,"VALUE MEANS 

NO WRAP-AROUND. ANY OTHER VAL 
UE SPECIFIES THE RIGHT MAR 
GIN." 

505 GOSUB440:PRINT@290, "ENTER VA 
LUE (50 TO 256): ";:PRINT@31 
6 , " " ; : LINEINPUTW$ : IFVAL ( W$ ) =0THE 
NQ=0 : RETURN 

510 Q=l:W=VAL(W$) : IFW<U+50THENSO 
UND60,3:PRINT§356,"RIGHT MARGIN 
TOO SMALL RELATIVE TO L 

EFT MARGIN. ":PRINT@425, "TRY AGAI 
N.":GOTO505 
515 IFW>2 56THENW=256 
520 RETURN 

525 GOSUB440 : CLS : PRINT@130 , "ENTE 
R 1ST TAB VALUE: " ; :LINEINPUTT$ : 
T1=VAL(T$) :IFT1>256THENT1=256 
530 GOSUB440:PRINT@194, "ENTER 2N 
D TAB VALUE : " ; : LINEINPUTT$ : T2=V 
AL(T$) :IFT2>256THENT2=256 
53 5 RETURN 

540 CLS :PRINT@3 3, "RIGHT ARROW: M 
OVE CURSOR RIGHT" :PRINT§65, "LEFT 

ARROW: BACKSPACE" :PRINT@97, "UP 
ARROW: CARRIAGE RETURN &":PRINT@ 
139, "MOVE UP 1 LINE":PRINT@161," 
DOWN ARROW: TAB" 

545 PRINT§193, "SHIFT RIGHT ARROW 
: DRAW DESIGN" :PRINT@225, "SHIFT 
LEFT ARROW: CLEAR LINE" : PRINT@25 
7, "SHIFT DOWN ARROW: UNDERLINE": 
PRINT@289, "SHIFT CLEAR: CLEAR SC 
RE EN 

550 PRINT§321, "ENTER: CARRIAGE R 
ETURN &":PRINT@3 63,"MOVE DOWN 1 
LINE" :PRINT@385, "SHIFT 0: UPPER/ 
LOWER CASE 

555 PRINT@481, "PRESS SPACE TO RE 
TURN TO MENU"; 

560 K$=INKEY$:IFK$=""THEN560ELSE 
RETURN 

565 D(1)=14:D$(1)="D15BR5U15BR5D 
15BR5U15 

570 D(2)=14:D$(2)="R15BD5L15BD5R 
15BD5L15 
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COCO CABLES AND ... 

Printer / Modem 10' Extender Cable $14.95 

TANDY CM-8 RGB Analog 6'Video Ext Cable $19.95 

Disk Drive Cable (34pin - 34pin) $19.95 

Cassette 'Y' Cable - Connect a 26-3028 Hi -Res Joy - 
stick interface & Tape Recorder to CoCoIII .$19.95 

Modem Cable - 6ft (DB25-DB25) $19.95 

Joystick / Mouse 10' Ext Cable $19.95 

No more Deluxe RS-232 paks left to hook up ptr £ 
modem ? Buy our RS-232 "Y" Cable (4 pin) ....$24.95 

Dual Disk Drive Cable (3-34pin) $24.95 

MAGNAVDX 8505 / 8515 / 8CM643 Analog RGB cable .$24.95 
Other Analog RGB monitor cable ( Specify ! ) ..$39.95 
15" Multi-Pak / Disk Pak Extender - Move your Multi- 
Disk Paks further away I&44-S9S: Closeout .... $29.95 
40 Pin Dual "Y" Cable - Hook up a Disk with a 

Voice Pak, Word Pak, CoCo Max, etc $29.95 

CoCo RS232 Switcher - Now easily switch between a 
printer S modem at the flick of a switch! ..$29.95 

OTHER GOOD STUFF ... 

5 1/4 " Diskettes in any quantity 49 cents 

C-10 tapes - Minijnum quantity (20 pes) ...69 cents 
CoCoIl/CoCoIII KEYCAPS - Replace worn keys! .$4.99 

Rompak w/Blank PC Board 27xx series $9.95 

"D" Rev motherboard w/o socketed chips $16.95 

Video Clear - This cable will reduce TV interfer- 
ence created by CoCo! $19.95 

CoCo Util II - Transfer CoCo files to your MS-DOS 

machine ( Tandy 1000 & IBM PC! ) $39.95 

CoCo III ke yboard - upgrade your CoCo II keyboard! 
" Package " deal w/ FKEYS III($24.95) software $39.95 

HDS Controller w/1.1 ROM (SAVE$20) $79.95 

MAGNAVOX TV tuner - Now you can watch TV with your 

8505/8515 RGB monitor ! $99.95 

Super Controller - Up to 4 DOSs by a POKE ..$99.95 
1200 Baud Modem (Hayes compatible) Auto-dial/answer 
$139.95. Req's Modem cable ( 4pin or DB25 ) ..$19.95 
PBH-64 - A combo Parallel Printer interface & 64K 

Print Buffer! COMPUTE while you PRINT ! $149.95 

MAGNAVOX 8505 RGB Analog monitor $249.95 

SONY KV-1311 CR Analog monitor w/cable ....$499.95 



Breaking your back 
typing on your 
CoCo??? 




fy lb 



<y# 



/ 



Sit back and relax with 
a Spectrum keyboard 
extender cable! $39.9 5 



Now you can extend your present keyboard away from 
your CoCoIl / CoCoIII ! Easier typing £ requires no 
soldering! You also have the option to leave your 
present keyboard intact £ hook up a second board 
for remote operation ! Spectrum Keyboard extender 

cable w/ EXTERNAL CoCoII keyboard $49.95 

Design by Marty Goodman , so you know it's quality! 



SUPER CHIP -SALE- ... 

2764 EPROM $4.95 27128 EPROM $6.95 

6821 Standard PIA ;S»r95_Closeout price! $6.95 

Basic ROM 1.1 Chip;2±9*as Closeout price! . . .$9.95 

6847 VDG Chip SUZtSS Closeout price ! $12 . 95 

6809E CPU Chip3i*r95 Closeout price! $12.95 

CoCo III Multipak - "NEW" PAL chip (For Gray and 

White 26-3024 models ONLY) $19.95 

Basic ROM 1.3 ( Newest version) $19.95 

Disk ROM 1.1 - (Needed for CoCoIII ) $29.95 

Original SAM Chip (6883) $29.95 

Ext Basic 1.1 ROM - Closeout price! $29.95 

CoCo First Aid Kit - includes two PIA's, 6809E CPU 
and SAM Chips (BE PREPARED) Closeout price! $49.95 
EPROM Programmer - uses 2716s up to 27512 s! Super 
fast programming! - See April '86 review .$149.95 
New! " Upgraded " CoCoIII ' GIME ' chip WRITE 

COCO LIBRARY ... 

A History of the CoCo / 1980-1986 $6.95 

CoCo Memory Map Reg. :$S&?§s: Now only $9.95 

New! 200 MORE Pokes, Peeks 'N Execs $9.95 

Basic Programming Tricks Revealed :$*4?95: ....$9.95 

500 Pokes, Peeks 'N Execs $16.95 

300 CoCoIII POKES - #1 CoCoIII bestseller! .$19.95 

Complete Rainbow Guide to 0S9 Level II $19.95 

Rainbow Guide to OS9 Level II Disk $19.95 

A Guide to COCO III GRAPHICS (7/87 review) .$21.95 
Better Graphics on CoCo3 (8/87 review pgl43)$24.95 

CoCo II Service Manual (Specify Cat.#) $29.95 

CoCo III Unraveled - A best seller! ! ! $29.95 

CoCo III Service Manual - Current version! .$39.95 
Color / Extended / Disk Basic Unraveled $49.95 

MORE GOOD STUFF ... 

WICO Adapter - Hookup 2 Atari type joysticks. $19. 95 
CoCo Keybd - Low profile, fits all CoCo lis £ "F"s 
WAS $39.95 - NOW $19.95. D/E CoCo I adapter $12.95 
CoCoMaxIl/CoCo3 patch - Reg. 26-3024 Multi-Pak 
Interface. Reg. Price $29.95 CLOSEOUT price .$14.95 
CoCo Checker - Test your ROMs, RAMs, PIAs, Disk 
Drives S Ctlr, Printer, Keybd, Joystk, etc.. $19. 95 
WICO Trackball - Regularly $69.95 , Now only. $24 .95 
0S-9 Level II Solution - A front-end " USER 

FRIENDLY " interface for LEVEL II $29.95 

Universal Video Drvr - All monitors £ CoCos .$29.95 
(2) Chip 64K Upgrade - 26-3134 A/B CoCo II .$29.95 

28 pin Bet Basic - 26-3134 A/B CoCo II $34.95 

Top FD-501 Drive 1 (#26-3133) - SAVE $60 ..$139.95 
CoCo III DISK DRIVE - (Includes CoCoIII Software 
Bonanza Package - a $ 150 plus value ! ! ! ) . . .$239.95 
2400 Baud Modem (Great for Delphi £ CIS) ..$249.95 
512K COLOR COMPUTER III (Includes CoCoIII Software 
Bonanza Package - a $ 150 plus value ! ! ! ) . . .$299.95 

SPECTRUM PROJECTS 

PO BOX 264 

HOWARD BEACH NY 11414 

All orders plus $3.00 S/H (Foreign $5.00) 

NYS Residents add Sales Tax 

See our other ad on page 17 ! ! ! 



575 D(3)=14:D$(3)="R15D15L15U14B 

R2BDR11D11L11U10BR2BDR7D7L7U6BR2 

BDR3D3L3U2 

58JZJ D(4)=14:D$(4)="BR3G2NUDLD5NF 

7EDF6NE6RE6NHU5LU2LNL3HL2G2NRNH2 

DH3DL 

585 D(5) =14 : D$ (5) ="BR7BDG3RNE2DG 

3RNE3DG3RNE3R6ND2R7H3LNF2ENH3RH3 

UNHRH2 

590 D(6) =14 : D$ (6) ="R5G5NU4BD2E7F 

7G7H7BD2D5R5NH4BR4R5U5NG4BU4U5L5 

NF4BL2BD3G4F4E4H4BD3GFE 

595 D(7)=62:D$(7)="BR31BD4L3GL3N 

U2D2GNU4GD2GD3R5NFUL2GL2GLGNDL8G 

LNG2BR8D2LGL2NG2BR4ENFGD3NR2DL2G 

LBR5FRFR5ER2ER5FR2FR5ERE2R2FRLHL 

2UNL2U4LNGR2FR2NF2L2H2U2R6FRF2BL 

10U3 L2NDHLHL5NGUR2 BR3U2HU2HNU4HU 

3NUGL2HL3BD13U3LND3U2HUH2RGFDFD 

600 D(8)=15:D$ (8) ="BR5R5FL7ND6GD 



8HNUD2LGDR7D2RU2R7UH2DNU3HU8LD5 
6j35 D$(9)="D15 
610 RETURN 

615 CLS : PRINT@12 , "DESIGNS" : PRINT 
@65,"1: VERTICAL STRIPES" : PRINT§ 
97, "2: HORIZONTAL STRIPES" : PRINT 
@129,"3: CONCENTRIC SQUARES " : PRI 
NT@161 , "4 : HEART" : PRINT@193 , "5 : 
XMAS TREE" 

62J3 PRINT§225,"6: DIAMONDS & TRI 
ANGLES" :PRINT@257, "7: COCO CAT": 
PRINT@289 , "8 : BELL" : PRINT@321, "9 

: VERTICAL BAR 

625 POKE&H2 3,Al:POKE&H24,A2 

630 K$=INKEY$:IFK$=""THEN63J3 

635 IFK$<"0" OR K$>"9"THENSOUND6 

0,5: RETURN 

64j3 K=VAL(K$) :F$(/3)=D$(K) :M(0)=D 

(K) : RETURN 



f*I 


....31 475 ... 


....84 




95 ... 


...32 540 ... 


...155 




160 .. 


...62 585 ... 


...125 




230 .. 


...176 630 ... 


....55 




290 .. 


....34 665 ... 


...158 




385 . . 


...161 END.. 


...230 




430 


251 











Listing 2: DESKTOPH 

RGB:WIDTH4j3:CLS3:LOCATE14,8:AT 

TR7 , 2 : PRINT" DESKTOP " ; : ATTR7 , 2 , U 

: PRINT"HIGH" ; : ATTR7 , 2 : LOCATE11, 1 

2:PRINT"BY H. Allen Curtis" : LOCA 

TE13 , 14 : PRINT "COPYRIGHT 1987 " : LO 

CATE24,8:ATTR7,2 

5 CLEAR40j3j3:A=&H16j30:A$="34761F5 

2313A1E428E7072BFFFA2 8D188E7A7BB 

FFFA28E7173BFFFA28D0A":GOSUB60j3: 

A=A+30:A$="8E7A7BBFFFA21E42 3 5F68 

E4j300CE6p0;3A684E6C4A7C0E7808C60j3 

026F339":GOSUB6j3,0 

10 CLEAR500j3:W=3 2j3:H=l 

15 HCOLOR3 , : ON BRK GOT0715 

20 K$=K$+"C":A1=PEEK(VARPTR(K$)+ 

2) :A2=PEEK(VARPTR(K$)+3) :IFA2<2T 

HENA2=2 54 : A1=A1-1 : GOTO40ELSEA2=A 

2-2:GOTO4j3GOTO40 

25 GOSUB485:CLS:LOCATE12,8:PRINT 

"FILENAME : " ; : LINEINPUTF$ : POKE&H 

FFA2 , &E10 : SAVEM"OUTl" , &H4000 , &H5 

FFF, &HAC73 : POKE&HFFA2 , &H71 : SAVEM 

"OUT2 " , &H4j3j2p , &H5FFF , &HAC73 : POKE 

&HFFA2 , &H7A:RENAME"OUTl/BIN"TOF$ 



+"/HRl":RENAME"OUT2/BIN"TOF$+"/H 

R2 " : RETURN 

30 GOSUB485:CLS:LOCATE12,8:PRINT 

"FILENAME : " ; : LINEINPUTF$ : RENAME 

F$+"/HRl"TO"INl/BIN":RENAMEF$+"/ 

HR2 "TO"IN2/BIN" : POKE&HFFA2 , &H70 : 

LOADM"INl" : POKE&HFFA2 , &H71 : LOADM 

" IN2 " : POKE &HFFA2 , &H7 A 

35 RENAME"INl/BIN"TOF$+"/HRl" :RE 

NAME"IN2/BIN"TOF$+"/HR2" : RETURN 

40 L2=1:P=176:DIMF$(84) ,M(84) :GO 

SUB63J3:F$(0)=D$(7) :M(0)=D(7) :K$= 

" 1" : GOSUB3 50 : POKE&HFFD9 , 

45 Cl=63:PALETTEj3, 63: PALETTE 1,0: 

PALETTE2 , 63 : PALETTE3 , 

50 HSCREENH:HBUFF1,99:HGET(8,152 

)-(9,152+D),l 

55 HBUFF4, 1824 :HBUFF5, 3624 :HGET( 

16, 20)- (111, 95) , 4:HBUFF6,1520:HG 

ET(16,20)-(111,170) ,5 

60 HCLS:T=V:L=U 

65 IF(Q=0 OR Z=U) AND L+4>W-1THE 

NL=U:IFT<P THENT=T+D+1 

10 IFQ=1 AND ZOU AND L+4>W-1THE 

NGOSUB195 

75 HGET(L,T)-(L+1,T+D) ,l:HLINE(L 

,T)-(L+1,T+D) ,PSET,BF 

80 POKE&H23,Al:POKE&H24,A2 

85 K$=INKEY$:IFK$=""THEN85 

90 K=ASC(K$) :IFK>64 AND K<91THEN 

N=K-64 : B=N: HLINE (L, T) - (L+l , T+D) , 

PRESET , BF : GOTO180 

95 IFK>96 AND K<12 3THENN=K-96 : B= 

N+26:HLINE(L,T)-(L+1,T+D) , PRESET 

,BF:GOTO180 



68 



THE RAINBOW October 1987 



100 IFK>47 AND K<58THENN=K-47 : B= 

N+52 : HLINE (L, T) - (L+l , T+D) , PRESET 

,BF:G0T018JZI 

105 IFK>32 AND K<48THENN=K-3 2 : B= 

N+62 : HLINE (L, T) - (L+l , T+D) , PRESET 

,BF:GOTO180 

110 IFK>57 AND K<65THENN=K-57 : B= 

N+77 : HLINE (L,T)- (L+l, T+D) , PRESET 

,BF:GOTO180 

115 IFK=32THENZ=L+S:IFL+8<W THEN 

HLINE ( L, T) - (L+7 , T+D) , PRESET , BF : L 

=L+S : GOT065ELSEHLINE (L, T) - (L+l , T 

+D) , PRESET , BF : L=U : T=T+1+D : GOT065 

120 IFK=13THENHPUT(L,T)-(L+1,T+D 

) , 1 : L=U 

125 IFK=13 AND T<P THENT=T+1+D: G 

0T065 

130 IFK=8 AND L>1THENL=2*INT ( . 5* 

L) : HLINE (L,T)- (L+l, T+D) , PRESET, B 

F:L=L-2:GOT065 

135 IFK=93THENB=0 : HLINE (L,T)-(L+ 

1,T+D) , PRESET, BF:GOTO180 

140 IFK=94THENHPUT(L,T)-(L+1,T+D 

) , 1:L=U:IFT>D THENT=T-1-D: G0T065 

145 IFK=91THENZ=U:HPUT(L,T)-(L+1 

,T+D) , 1:HDRAW"BM"+STR$ (L) + " , "+ST 

R$ (T+l+INT ( . 75*D) ) +"R3 " : L=L+4 : IF 

L>W-5THENL=L-4 



150 IFK=9 AND L+4<W THENHPUT(L,T 

)- (L+l, T+D) ,l:L=L+4:GOT065 

155 IFK=92THEN60 

160 IFK=4THENHPUT(L,T)-(L+1,T+D) 

,1:GOTO2 30 

165 IFK=10THENHPUT(L,T)-(L+1,T+D 

) ,1:IFT3=0THENT3=1:L=T1 ELSEIFT3 

=1THENT3=0:L=T2 

170 IFK=21THENHPUT(U,T)-(W-1,T+D 

) ,4:L=U:GOT065 

175 GOT065 

180 IFL+M(B)<W THENGOSUB2 25:L=L+ 

2 * INT (.5+M(B)*.5)+2: IFL>W-1THENL 

2=L-W+1 : L=W-1 : GOT065ELSE65 

185 IFQ=0 OR Z=U THENL=U: IFT<P T 

HENT=T+D+1 : GOTO90ELSE90 

190 GOSUB195:GOTO90 

195 IFH=3THENZ1=8*INT(.125*Z) 

200 IFH=1THENZ1=4*INT(.25*Z) 

205 Z=Z1 

210 HGET(Z,T)-(L,T+D) ,6:HPUT(Z,T 

)-(L,T+D) ,4:L1=L-Z:L=U:Z=U:IFT<P 

THENT=T+D+1 
215 IFL+LK0THENL1=L1+2:GOTO215 
220 HPUT(L,T)-(L+L1,T+D) ,6:L=L+L 
1+L2 : L=2 *INT ( . 5*L+ . 5 ) : L2=0 : RETUR 
N 
225 HDRAW"BM"+STR$ (L) + M , M +STR$ (T 



Over 200 Dealers & 
5000 Customers 
Can't be wrong! 



We are Canada's largest 

National Distributors of 

Color Computer Products 




,^,:> 



Send for the great Canadian 
Color Computer Catalog 



Kelly Software Distributors Ltd. 

Marlborough P.O. Box 403 
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)+F$(B) : RETURN 

230 HSCREEN0 : CLS : ATTR0 , 4 : LOCATE 1 
0, 5: PRINT" B: BACK TO SCREEN" : LOC 
ATE10,6:PRINT"C: COLOR SWAP" : LOC 
ATE10,7:PRINT"D: DESIGN SELECT 
235 LOCATE10,8:PRINT"F: FONT SEL 
ECT" : LOCATE10 , 9 : PRINT" I : INPUT" : 
LOCATE10,10:PRINT"K: KEYS LISTED 
":LOCATE10,11:PRINT"M: MARGIN SE 
T" : LOCATE10 , 12 : PRINT"0 : OUTPUT" : 
LOCATE10,13:PRINT"R: RESOLUTION 
CHANGE 

240 LOCATE10,14:PRINT"S: SCREEN 
SWITCH" :LOCATE10, 15:PRINT"T: TAB 
SET" : LOCATE10 , 16 : PRINT"W: WORDW 
RAP SET":LOCATE10,17:PRINT"X: EX 
IT DESKTOP" :LOCATE14, 17:POKE&H2 3 
, Al : POKE&24 , A2 : POKE&HFFD8 , 
245 K$=INKEY$:IFK$=""THEN245 
250 IFK$="D" OR K$="d"THENGOSUB6 
80:GOTO230 

255 IFK$="F" OR K$="f "THENGOSUB3 
25:GOTO380 

260 IFK$="B" OR K$="b"THEN320 
265 IFK$="I" OR K$="i"THENGOSUB3 
0:GOTO2 30 

270 IFK$="K" OR K$="k"THENGOSUB6 
05:GOTO2 30 

275 IFK$="0" OR K$="o"THENGOSUB2 
5:GOTO2 30 

2 80 IFK$="M" OR K$="m n THENGOSUB5 
00:GOTO2 30 

285 IFK$="R" OR K$="r"THENIFH=lT 

HENH=3 : U=2 *U : W=2 *W : Tl=2 *T1 : T2=2 * 

T2 : GOT02 30ELSEH=1 : U= . 5*U : W= . 5*W : 

T1=.5*T1:T2=.5*T2:GOTO230 

290 IFK$="T" OR K$="t"THENGOSUB5 

85:GOTO230 

295 IFK$="C" OR K$="c"THENGOSUB7 

10:GOTO2 30 

300 IFK$="S" OR K$="s"THENEXEC&H 

1600:GOTO230 

305 IFK$="W" OR K$="W"THENG0SUB5 

50:GOTO2 30 

310 IFK$="X" OR K$="X"THEN715 

315 SOUND60,5:SOUND60,5:GOTO2 30 

3 20 POKE&HE6E4,&HE6:HSCREENH:POK 
E&HE6E4 , &HE7 : POKE&HFFD9 , : GOT038 
5 

325 GOSUB390 

330 POKE&H23,Al:POKE&H24,A2 

335 K$=INKEY$:IFK$="" THEN335 

340 IFK$<"1" OR K$>"2" THENSOUND 

60 ,10: RETURN 

345 GOSUB485 

350 GOSUB495 

355 OPEN"I",#l,"FONT"+K$ 

3 60 F0RI=1T084:LINEINPUT#1,F$(I) 



:NEXT 

365 F0RI=1T084:INPUT#1,M(I) :NEXT 
370 INPUT#l,D,S:CLOSE#l 
375 RETURN 

380 HPUT(16,20)-(111,170) ,5 
385 GOSUB545:HGET(L,T)-(L+l,T+D) 
,l:GOT065 

390 POKE&HE6E4, &HE6 -.HSCREENH: POK 
E&HE6E4 , &HE7 : HGET ( 16 , 20 ) - ( 111 , 17 
0) ,5:HPUT(16,20)-(111,95) , 4 : HPUT 
(16, 96) -(111, 170) ,4:HDRAW"BM25,2 
8NGD6NL2RNR2U6BM3 2 , 29RDLBD3RDL 
395 HDRAW"BM50,24G3ERE2R4GNL3G4D 
5EU4BR2D5G4UH2LG2ER3FERE2URUE2NF 
G2U4E4F2DH2DFBM64 , 29G2ND4LD4NHFR 
E2NU5RU4FBM72 , 29G2RD4NHFNEU4NU2E 
3ND6FNFD6E2BM83 , 25G3LR3NR2NUD8NE 
2H2RU5 

400 HDRAW"BM24,43NGNDR3ND2FDGL2N 
G2DG2R5ULBM32 , 44RDLBD3RDL 
405 HDRAW"BM49,4 3R6NDNGL5D3NR3D3 
NLR2HU4BM59 , 45ND3GD2FR3NU3EU2HL2 
BM66,45D4RU4R3D4RU3BM76,43ND5G2N 
R4FD2FRE 

410 HDRAW"BM24,62NGNDR3ND5FDGNL2 
FDGL3ULBM32 , 63RDLBD3RDL 
415 HDRAW"BM50,56R5BR2DNLNRDRNRD 
RE2BL7L5DLNGBR5G2ND8GD8BDBL2L2DR 
2DFNDRURE2U9NE3RD3ND4REFBM64 , 61G 
2ND6LD5LF2RE2NU7RU6FBM72 , 61NG2D3 
E3DRFLD7NE2HNU6BL2GNU5LNHU7BM83, 
57G2RD11NE2H2RU8L2R5 
420 HDRAW"BM26,81G3DE4D6NLRNRU2N 
RNL4U4BM32 , 82RDLBD3RDL 
425 HDRAW"BM46,78R11D2RHL2BL6D6R 
3D2ENRHL3D6GU13LBM62 , 82G3D2F3R5E 
3U2H3L4G3D2F3R3E3U2H2BM72 , 82R3GN 
LD7RU5NU2E3R2DRD7LNUE2U4BM88 , 80D 
LGR7NR5G5UNE2 FDRDRDR4E2 
430 HDRAW"BM23,98NR5D2EDR3ND3FD2 
GL3ULBM3 2,99RDLBD3RDL 
435 HDRAW"BM48,96NR6D8RU4NU3R3BM 
56,99ND4GD3FR4NU5EU3HL3BM64,99D5 
RU5R4D5U4BM74 , 96D7FRHU5NL3NR2U2 
440 HDRAW"BM25,110NR2G2D3FR3NU2E 
UHL3ND2UEBM3 2,111RDLBD3RDL 
445 HDRAW"BM48,109R7NDL6D8NLR2HU 
3NU3R3NUDBM58 , 112ND4GD3FR4NU4EU3 
HL3BM66 , 112RD5NLR2HU3ER3D5NLR2HU 
3BM79 , 109D8REBL3U4NR3NL2U2 
450 HDRAW"BM23,124NDNFR5D2HDG2D2 
RU2EBM32 , 125RDLBD3RDL 
455 HDRAW"BM52,123R4NFL4G2D2NR3D 
4BM60,125G2D2F2R2E2U2H2LBM68,125 
ND6FER2F2D4BM78 , 123DND7GR4 
4 60 HDRAW"BM2 4,13 6ND5GDFGDFR3NU5 
EUHNL2EUHL2BM32 , 137RDLBD3RDL 
465 HDRAW"BM50, 136NGR3NR4D4L2NGR 
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3NU3NR2D2HD2GL3BM62 , 138G2DED2R3E 

2UGU2L2BM70,138NGD4RUNU3E3RD4RNE 

U3BM81,13 6D6R2NEL2HU4GR4 

470 HDRAW"BM24,149ND2GDFR3DG2NLR 

E2U3HND2L2BM3 2,150RDLBD3RDLBM50, 

148NG3NR7ND3FD3NR4L3NGR3ND7LD8GL 

3BM60,148G3NRF2NU3R3E2NU2LU3L2BM 

68 , 148G2RD3RU2NU2E3RD5RNE2U4BM79 

, 147NG2D2NR2ND3LD3FR2E2 

475 HDRAW"BM24,163ND5GD4FR3U5G2D 

E3ND4HL2BM32,164RDLBD3RDLBM50,16 

4NR3D2NR2D3BM56,166GDFREUHBM61,1 

66D2NDE2FD2BM68 , 164D2NLNRD2FE 

480 RETURN 

485 POKE&H23,Al-l:POKE&H24,A2:RE 

TURN 

490 POKE&H23,Al-2:POKE&H24,A2:RE 

TURN 

495 POKE&H23,Al-3:POKE&H24,A2:RE 

TURN 

500 G0SUB485 : CLS : L0CATE6 , 8 : PRINT 

"ENTER TOP MARGIN (0 - 10): " ; : L 

INEINPUTV$ : LOCATE6 , 12 : PRINT"ENTE 

R LEFT MARGIN " ; 

505 LOCATE24 , 12 : IFH=1THENPRINT" ( 

- 200): ":LOCATE35,12ELSEP 

RINT"(0 - 400): ":LOCATE3 5,l 


565 IFH=1 AND W>320THENW=320 
570 IFW>640THENW=640 
575 IFH=1THENW=4*INT(.25*W)ELSEW 
=8*INT(.125*W) 
580 RETURN 

585 GOSUB485:CLS:LOCATE6,8:PRINT 
"ENTER 1ST TAB VALUE: ";:LINEINP 
UTT$:T1=2*INT(VAL(T$)*.5) : IFH=1 
AND T1>320THENT1=320ELSEIFT1>640 
THENT1=640 

590 GOSUB485 : LOCATE6 , 12 : PRINT"EN 
TER 2ND TAB VALUE: ";: LINEINPUTT 
$:T2=2*INT(VAL(T$)*.5) : IFH1 AND 
T2>320THENT2=3 20ELSEIFT2>640THEN 
T2=640 
595 RETURN 

600 FORI=0TO2 9 : B$=LEFT$ ( A$ , 2 ) : PO 
KEA+I, VAL ("&H"+B$) : A$=RIGHT$ (A$ , 
LEN(A$)-2) : NEXT: RETURN 
605 CLS:LOCATE5,3:PRINT"RIGHT AR 
ROW: MOVE CURSOR RIGHT" : PRINT" 
LEFT ARROW: BACKSPACE" : PRINT" 
UP ARROW: CARRIAGE RETURN & 
": PRINT" MOVE UP 1 LIN 
E": PRINT" DOWN ARROW: TAB" 
610 PRINT" SHIFT RIGHT ARROW 


2 

510 GOSUB490:LINEINPUTU$:V=VAL(V 

$) :U=VAL(U$) :IFH=1THENU=4*INT(.2 

5*U):Z=U ELSEU=8*INT(.125*U) :Z=U 

515 IFV<0THENV=0 

520 IFV>10THENV=10 

525 IF U>W-50THENSOUND60,5:LOCAT 

E10,15:PRINT"LEFT MARGIN TOO BIG 

":LOCATE8,16:PRINT"RELATIVE TO R 

IGHT MARGIN ! " : LOCATE14 , 20 : PRINT" 

TRY AGAIN.":GOTO505 

530 IFU<0THENU=0 

535 IFH=1 AND U>200THENU=200 

540 IFH=3 AND U>400THENU=400 

545 P=V+(D+1)*(-1+INT((192-V)/(D 

+1))) :L=U:T=V: RETURN 

550 CLS :LOCATE6, 6: PRINT "VALUE 

MEANS NO WRAP-AROUND.": LOCATE 6, 8 

:PRINT"ANY OTHER VALUE SPECIFIES 

":LOCATE9,9:PRINT"THE RIGHT MARG 

IN." 

555 GOSUB485 : LOCATE6 , 12 : PRINT"EN 

TER VALUE ( -" ; 320+ (H-l) *160 ; " 

) : " : LOCATE3 1 , 12 : LINEINPUTW$ 

: IFVAL(W$) =0THENQ=0 : RETURN 

560 Q=1:W=VAL(W$) : IFW<U+50THENSO 

UND60 , 5 : LOCATE8 , 16 : PRINT"RIGHT M 

ARGIN TOO SMALL" : LOCATE8 , 17 : PRIN 

T"RELATIVE TO LEFT MARGIN .": LOCA 

TE15 , 19 : PRINT"TRY AGAIN . " : GOT055 

5 








TANDY COMPUTER 
DISCOUNTS 

COLOR COMPUTERS 

26-3127 64k color comp 89.95 
26-334 CoCo 3 170.00 
26-3131 1st disk drive 269.95 
26-321 5 CM-8 color monitor 259.95 

PRINTERS 

26-2802 DMP 106 169.95 
26-1277 DMP-430 580.00 
26-1280 DMP-130 269.00 
Complete line ot Tandy (Daisy Wheel) print wheels 

MODEL 4 and MSDOS COMPUTERS 

25-1050 Tandy 1000 EX 530.00 
25-1051 Tandy 1000 SX 850.00 
25-1011 Plus expansion board 179.00 
25-1023 CM-5 color monitor 249.95 
25-1020 VM-4 Monochrome monitor 110.00 
26-1070 mod 4D 64k 2dr. 920.00 

We Carry the Complete Line of Tandy 
Computer Products at Discount Prices 

CALL FOR A FREE PRICE LIST 800-257-5556 
IN N.J. CALL 609-769-0551 

WOODSTOWN ELECTRONICS 

Rt. 40 E. WOODSTOWN, N J. 08098 
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: DRAW DESIGN": PRINT" SHIFT 
LEFT ARROW: CLEAR LINE": PRINT" 

SHIFT DOWN ARROW: UNDERLINE": 
PRINT" SHIFT CLEAR: CLEAR SC 
REEN 

615 PRINT" ENTER: CARRIAGE R 
ETURN &": PRINT" MOVE D 

OWN 1 LINE": PRINT" SHIFT 0: 
UPPER/LOWER CASE 

620 LOCATE5, 22: PRINT "PRESS ";:AT 
TR0 , 4 , U : PRINT " S PACE " ; : ATTR0 , 4 : PR 
INT" TO RETURN TO MENU" ;: LOCATE 1 
2,22 

625 K$=INKEY$:IFK$=""THEN625ELSE 
RETURN 

630 D(1)=14:D$(1)="D15BR5U15BR5D 
15BR5U15 

635 D(2)=14:D$(2)="R15BD5L15BD5R 
15BD5L15 

640 D(3)=14:D$(3)="R15D15L15U14B 
R2BDR11D11L11U10BR2BDR7D7L7U6BR2 
BDR3D3L3U2 

645 D(4)=14:D$(4)="BR3G2NUDLD5NF 
7EDF6NE6RE6NHU5LU2LNL3HL2G2NRNH2 
DH3DL 

650 D(5)=14:D$(5)="BR7BDG3RNE2DG 
3RNE3DG3RNE3R6ND2R7H3LNF2ENH3RH3 
UNHRH2 

655 D(6)=14:D$(6)="R5G5NU4BD2E7F 
7G7H7BD2D5R5NH4BR4R5U5NG4BU4U5L5 
NF4BL2BD3G4F4E4H4BD3GFE 
660 D(7)=62:D$(7)="BR31BD4L3GL3N 
U2D2GNU4GD2GD3R5NFUL2GL2GLGNDL8G 



LNG2BR8D2LGL2NG2BR4ENFGD3NR2DL2G 

LBR5FRFR5ER2ER5FR2FR5ERE2R2FRLHL 

2UNL2U4LNGR2FR2NF2L2H2U2R6FRF2BL 

10U3 L2NDHLHL5NGUR2 BR3U2HU2HNU4HU 

3NUGL2HL3BD13U3LND3U2HUH2RGFDFD 

665 D ( 8 ) =15 : D$ (8 ) ="BR5R5FL7ND6GD 

8HNUD2LGDR7D2RU2R7UH2DNU3HU8LD5 

670 D$(9)="D15 

675 RETURN 

680 CLS : LOCATE15 , 6 : ATTR0 , 4 , U : PRI 

NT" DESIGNS" ; : ATTR0 , 4 : LOCATE9 , 9 : P 

RINT"l: VERTICAL STRIPES" : LOCATE 

9, 10: PRINT" 2: HORIZONTAL STRIPES 

" : LOCATE9 , 11 : PRINT" 3 : CONCENTRIC 

SQUARES" : LOCATE9 , 12 : PRINT" 4 : HE 
ART":LOCATE9,13:PRINT"5: XMAS TR 
EE" 
685 LOCATE9,14:PRINT"6: DIAMONDS 

& TRIANGLES" : LOCATE9 , 15 : PRINT" 7 
: COCO CAT":LOCATE9,16:PRINT"8: 
BELL" : LOCATE9 , 17 : PRINT"9 : VERTIC 
AL BAR": LOCATE 15, 6 
690 POKE&H23,Al:POKE&H24,A2 
695 K$=INKEY$:IFK$=""THEN695 
700 IFK$<"0" OR K$>"9"THENSOUND6 
0,5: RETURN 

705 K=VAL(K$) :F$(0)=D$(K) :M(0)=D 
(K) : RETURN 

7 10 C3=C1 : C1=C2 : C2=C3 : PALETTE0 , C 
1 : PALETTE 1 , C2 : PALETTE2 , CI : PALETT 
E3,C2: RETURN 
715 RGB:CLS3:POKE&HFFD8,0 



^28 ... 


....110 122 ... 


....78 




44 ... 


....206 148 ... 


...198 




66 ... 


96 END ,. 


. ... 99 




94 ... 


155 











Listing 3: GENF0NT1 

CLS :PRINT@199, "GENERATE FONT1" 
:PRINT@2 61,"BY H. ALLEN CURTIS": 
PRINT@295, "COPYRIGHT 1987 

8 DIMF$(84) ,M(84) 

9 D=15:S=8 

10 M(1)=12:F$(1)="BR4BDG3D2NFUE4 
NR3DR6UD11EL2NHU9G4U2LNGBD3GNR5G 
2NG2R3GR3GL" 'A 

12 M ( 2 ) =12 : F$ ( 2 ) ="BR3BDNG3R5GL4N 

GR4G4NUFDLDBU8BR8ND2FDG5U3NE3LD4 

GL3NG2R2DRNR2DR4E3UGUH" ' B 

14 M(3)=12:F$(3)="BR4BDG4D3RNU3N 

RDNR2FNRF2R5NE3UL5U7NGEND5E2D2ED 

2R2NE2UL" *C 

16 M(4)=12:F$(4)="BR3BDG2NGRE2NR 



7GR8ND7DL2FD6G2L2NL2UL3EL3NG2E2N 

U2LU2E3" 'D 

18 M(5)=15:F$(5)="BR3BDG3ERE2R4G 

NL3G4ND2RNDBR2NRE5D2EDNRD2NE3G2N 

R3L4D2NEDR3D2R2ENEL6HL2G2" 'E 

20 M(6)=16:F$(6)="BR6BDG3ERE2R4G 

NL3G4D5EU4BR2D5G4UH2LG2ER3FERE2U 

RUE2NFG2U4E4F2DH2DF" ' F 

22 M(7)=12:F$(7)="BR4BDG4ND3RD4F 

3R5E3U2LND2L4NLE4NEL3NDNFLNEU2G4 

RND6ED4GD2R5" 'G 

2 4 M(8)=13:F$(8)="BR3BDG3ERE2NR4 

DR3G4NRNFD2BD2LNG2R3GR3FL3U2EU3N 

E5RD2E5FND6LD8GDF" 'H 

26 M(9)=11:F$(9)="BR3BDG3ERE2NR4 

DR3G3LGLNGR3DL2FBD2LNG2R2DFU2RU4 

RND2UE4" 'I 

28 M(10)=14:F$(10)="BR6BDG3ERE2N 

R4DR3G5LNGR3NUDNL2D2HD2BD2DLH2LG 

2ER3FDE5NU4LU4E5" 'J 

30 M(11)=15:F$(11)="BR3BDG3ERE2N 

R4DR3G4NRNFD2BD2LNG2R3GNR3FR3LH2 

ENU3EU3E4D2EDR2NEL2BD2L3NGR3DLG2 
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FRD3E2HD" 'K 

3 2 M(12)=15:F$(12)="BR3BDG3ERE2N 

R4GR3G4NRNFD2BD2NG2R6F2E2GLGLUL3 

U5END3E4D2ED2RNUE2"' L 

3 4 M(13)=15:F$(13)="BR3BDG3ERE2R 

GR3G4RD2HD3LNG2R3GFNR3UR4NENU9HU 

3NLUNR2NU5E5D11NHE2LU8" 'M 

3 6 M(14)=16:F$(14)="BR2BDG2ER3NH 

GD7LNG2R2GR3GNLBR4HUH2UHUH2RF2DF 

DF2DFU11NRGR3GR3NEGL" "N 

38 M ( 15) =13 : F$ ( 15 ) ="BR4BDG4ND3RD 

4ED2ED2FNU7NR5ER5E3NU3LU4GU2GU2N 

GNL3HL2G3NGRD4" '0 

4J3 M(16)=12:F$(16)="BR5BDG2R2NUD 

9F2RNELH3D2NGU5R2NUR2GNRFRE3NU5L 

U6LG4L4NGFRDGLG2F" ' P 

42 M ( 17 ) =14 : F$ ( 17 ) =" BR4BDG4ND3RD 

4NER2D2NHNR7FR5E2H2LNGRF3REG2BU3 

NU5EU3L2U2GU2GUNL2UL2G2NG2D5GNDU 

4"'Q 

44 M(18)=13:F$(18)="BR3BDG3ERE2N 

R4DR3G4D2EUBD4L2NG2R3GNR3FR3BR3N 

U3E2NLH2LHE3NU2LU3G5D3E2LU'" R 

46 M ( 19) =13 : F$ ( 19 ) ="BR5BDG3RDR2B 

U2URDR5NE2GL3BD2NL2RGR3GR2G3LEL3 

ELNL3HL2G2DF2RE" 'S 

48 M(20)=14:F$ (2)3) ="BR3BDG3ERE2N 

R5DR6DR3NEGL2HLG3RND3ED3G2UH3NRN 



E3D2RDRDF2NU2R5NE3UL4" »T 

5j3 M(21)=12:F$(21)="BR4BDG2R2NUN 

D5G2LNGF2NU2D3LNGR3GR2NRGR3E2ND2 

NFNR2UNU8RU7L2G" 'U 

52 M(22)=1J8:F$(22)="BR4BDG2R2NUN 

D5G2LNGF2NU2D3LNGR3GR2GRE4NU6LU7 

G2"'V 

54 M ( 23 ) =14 : F$ ( 2 3 ) ="BR4BDG2R2NUN 

D5GD2L2NGF2NUD2LNGR3GRDE3NDU8NG2 

FD9FNU3E3NU7EU6HG2" 'W 

56 M(24)=13:F$(24)="BR2BDNG2ND2F 

2LDR2D2NL3HR2DG4NG2R3GR3GNLBR5E2 

H4NR3LF4LH4R2E3NEL3EL3ER" 'X 

58 M(25)=12:F$(25)="BR4BDG2RED6H 

NU3HLNGF2D2LNGR3GR2NRGR5FDGL5EL3 

NGR3 BR6UHNUlj3HUlj8G2 » ' Y 

60 M(26) =14 : F$ (26) ="BR3BDNG2R3GR 

3DNL2R4UGLG3NL3NR3G3NR5LNG3DNGR7 

GNLNR3FR2E2" ' Z 

62 M(27)=7:F$(27)="BRBD5GF2GND3L 

D2R3EF2NEH3R2NDU3NEHL2F2NUD" "a 

64 M ( 2 8 ) =6 : F$ ( 2 8 ) =" BR3BDG2NHD8NH 

FNU9E2R2NU4HU4G2" 'b 

66 M(29)=5:F$(29)="BR2BD5G2RD4NH 

FNE2U6EDR2G" 'c 

68 M(3p)=8:F$(3p)="BDF4LND6GD5NH 

FE2R2U4NEH5LF5ND3L" • d 

7p M ( 3 1 ) =6 : F$ ( 3 1 ) ="BR2BD5G2RD4NH 



Hardware 

Special 



Communications 
Package 

300/1200 baud Fully Hayes 

compatible 
Modem - 2 Yean Warranty 

S129.00 

[Modem S. Cable] 

300/1200/2400 baud 

Fully Hayes 

Compatible Modem - CCITT 

2 Yean Warranty 




[Modem & Cable] 



THE OTHER GUYS CoCo 

55 North Main Street 

Suite 301-D 

PO Box H 

Logan Utah S4321 



Software 

'KEEP-TRAK' General Ledger Reg. S69.95— Only S39.95 

"Double-Entry" General Ledger Accounting System lor home or business: 16k, 
32k, 64k. User-friendly, menu-driven. Program features: balance sheet, income & 
expense statement [current S. 'YTD'], lournal. ledger. 899 accounts [ 2350 entries on 
32k S. 64k [710 accounts & entries on 1 6k] [disk only]. Version 1 .2 has screen printouts. 
Rainbow Review 1.1 - 9/84 : 1 .2-4/85 
"OMEGA FILE" Reg. 569.95— ONLY S24.95 
Rling data base. File any information with Omega Rle. Records can have up to 16 fields 
with 255 characters per field [4080 characters/record). Sort, match & print any field. 
User friendly menu driven. Manual included [32k/64k disk only]. 

Rainbow Review 3/85. Hot CoCo 10/85 

BOB'S MAGIC GRAPHIC MACHINE 

Can generate BASIC code to use in your programs. Easy drawing and manipulation of 
circles, elipses. boxes, lines and ARCS. Single joystick operation with on line HELPS at all 
times. Allows text on the graphics screen & movement of objects on the screen. Can be 
used as a stand-alone graphics editor. Instruction Manual. GRAPHICS EDITOR. REG. 
S39.95— ONLY S24.95 for disk or tape. 64k ECB. 

Rainbow Review 7/85. Hot CoCo 9/85 "The graphics bargain of the year" 

'KEEP-TRAK' Accounts Receivable. 

Features: auto interest calculation, auto ageing of accounts, installment sales, total due 
sales, explanation space as long as you need, detailed statements, 'KEEP-TRAK' General 
Ledger tie in, account number checking, credit limit checking S, more. User friendly/menu 
driven. Includes manual S39.95 or $49.95 General Ledger & Accounts Receivables. 
[Disk Only] 'COCO WINDOWS' 

With hi-res character display and window generator. Features an enhanced key board 
[klicks] and 10 programmable function keys. Allows the user to create multiple windows 
from basic. Includes menu driven printer setup and auto line numbering. Four function 
calculator, with memory. The above options can be called anytime while running or writing 
in BASIC. APPLE PULL YOUR DRAPES. YOU DON'T WANT TO SEE THIS. S24.95 [disk 
or tape] includes manual. 

(BOH 753-7B20 Mei/y ». 

CBOCJ] 942-9402 AT flL ^e 

[Add S3.CJO for postage & handling] 

C.O.D., ft/lonoy Order, Check in U.S. Funds [Pleaae specify if JSM 

controller] 



October 1987 THE RAINBOW 



73 



FE2HE2RGU2L2UGD5" ' e 

72 M ( 3 2 ) =7 : F$ ( 3 2 ) = M BR4BDRFNELHG3 

NLRD7NHFNE2U9FR" ' f 

74 M(33)=9:F$(33)="BR3BD5ND6G2RD 

4NHFG2NGRNR4FR3E2ULU4NG3NE2U2LND 

5UG2" 'g 

7 6 M(34)=6:F$(34)="BR3BDG2NHD8NH 

FNEU4NU5E3ND7FD4GDF" 'h 

78 M(35)=3 :F$(35)="BR2BDGBD4NGD5 

NHFNEU7F" 'i 

80 M(36)=5:F$ (36)="BR4BDGBD4NENR 

2NGD5RNU4DRDG2LNH2UR" ' j 

82 M(37)=8:F$(37)="BR3BDG2NHD8NH 

FUNRU3NU5E3ND2FDG2NLFRGRDE2" 'k 

84 M(38)=3:F$(38)="BR3BDG2NHD8NH 

FNEU9" '1 

86 M(39)=12:F$(39)="BR2BD5G2RD4N 

HFNEU6FE2D6FNEU6FE2D6FNE2U6E" 'm 

88 M(40)=8:F$(40)="BR2BD5G2RD4NH 

FNEU4NU2E3ND6FNFD6E2" 'n 

9j3 M(41)=7:F$(41)="BR4BD5G2ND4LD 

4NHFRE2NU5RU4F" 'o 

92 M(42)=8:F$(42)="BR3BD5G2RD3NG 

2D4NGENFU5NU2E3ND5FD4NFG2H" "p 

94 M(43)=7:F$(43)="BR2BD5G2RNE2N 

D3RD5NH2RE2D4NGENFU6NEHNLD3" 'q 

9 6 M(44)=7:F$(44)="BR2BD5ND6G2RD 

4NHFNE2U4E3DRFG" ■ r 

98 M(45) =8 : F$ (45) ="BRBD5GNDRD2R3 

G3NGR3GR3NE2UE2LH2NDNE2UL2EL2 " • S 

100 M(46)=5:F$(46)=" BR4 BDG3 LR3NR 

2NUD8NE2H2RU5" 't 

102 M(47)=7:F$(47)= M BR2BD5ND6G2R 

D4NHFE2F2NEU7G2RD3'"U 

104 M(48)=7:F$(48)="BR2BD2G2DED7 

NEFNU6E3NU3DEU4NFUG2" *v 

106 M(49)=11:F$(49)="BR2BD3G2DED 

FND4LD4HDERE2ND3U3F2LD3RE2U3F2LD 

3NRHD2" 'W 

108 M(50)=10:F$(50)="BR2BD5NG2D2 

ENFD3G2NGEND2E2R2E3G2NU2G2F3NE2U 

2LU ,M X 

110 M(51)=7:F$(51)="BR2BD5ND6G2R 

D4NHFE3U3NGENFD5LDRDRDG2NL2UL4G" 

'y 

112 M(52)=10:F$(52)="BR2BD5NG2NR 

3DRBD2R3E2NENL2G2NR3G3LNGR2FR3HR 

2E"'Z 

114 M(53)=8:F$(53)="BR3BD2G3D4NF 

3NERNF3RF3E3U4GU2GU2GU2LD" '0 

116 M(54)=4:F$(54)="BR3BD2NG3D10 

NEHNHU7 " i 1 

118 M(55)=8:F$(55)="BR3BD2G2DE3N 

DF3NLDGUNG2LG5DE2DRFR2NUE2" '2 

12p M(56)=7:F$(56)="BR3BD2NG3RNG 

2NDF3NDLDGNL2F2UGDG2LH3FRFR" ' 3 

12 2 M(57)=8:F$(57)="BR6BD2ND8G6R 

7NFG2DNR2NFHEU5" ' 4 

124 M(58)=7:F$(58)="BRBD2R5GL4D4 



RE2R2ND4FD3G3LH2NHRFR" ' 5 

12 6 M(59)=7:F$(59)="BR4BD2F2NEL2 

ULG3ND3RD2E2R2F2NDLD2G2LH2RFR" ■ 6 

12 8 M(60)=8:F$(60)="BRBD2NR7GR7D 
G3ND4GD4"'7 

130 M(61)=5:F$(61)="BR2BD2G2DF2G 
2DED2FRE2ULULUNH2E2UGU2H" ' 8 
132 M(62)=7:F$(62)="BR3BD2G3DFUF 
2E2RND2UH2NLUF3D3G4U2L2NGF" *9 

13 4 M(63)=1:F$(63)="BDFND3LD5BD3 
DRD" ' ! 

13 6 M(64)=4:F$(64)="BDDRD2BR3U2L 

U" ' " 

13 8 M(65)=9:F$(65)="BR3BD3G2LR2D 

4NL2D2EU6FRE2D2NR2D4NR2NL3DGU6" 1 

# 

140 M(66)=8:F$(66)="BR4BDND11G3D 

RDR2UE2NEL3D4R2DRDG2L2UL2NEG" ' $ 

142 M ( 67 ) =9 : F$ ( 67 ) =" BRBD2GFEBR5N 

UG6DE7BD5GFE" ' % 

144 M(68)=9:F$(68)="BR2BDG2DF2G2 

DFNU2FRE3D3FNE2U3ENRGH2LNFHNH2E2 

UHND2H" ' & 

146 M(69)=l:F$(69)="BDDRDG" > « 

148 M(70)=5:F$(70)="BR3BDNR2G3D5 

F3R2LH3U5" ' ( 

150 M(71)=5:F$(71)="BDRF3D6G2NL2 

E3U5H3'") 

152 M(72)=9:F$(72)="BRBD4F3NL4E3 

RNFG3NR4NF3G3LNHE2 » ' * 

154 M(73)=9:F$(73)="BR5BD4D5GU3N 

U2NL4NR5" '+ 

156 M(74)=1:F$(74)="BD10DRDG" ' , 

158 M(75)=9:F$(75)="BD7R9"'- 

160 M(76)=2:F$(76)="BD10DR2D" ' . 

162 M(77)=10:F$(77)="BR10G10DE10 

"V 

164 M(78)=2:F$(78)="BRBD4GR2GBD3 

GR2G" • : 

166 M(79)=l:F$ (79) ="BD4DRDBD4HDF 

G" ' ; 

168 M(80)=4:F$(80)="BR4BD3G4F4UH 

3E3"'< 

170 M(81)=9:F$(81)="BD6R9BD3L9 IM 

172 M(82)=4:F$(82)="BD3F4G4UE3H3 

174 M(83)=6:F$(83)="BR2BDNG2R2DR 

DNG3RG4BD3DRD" '? 

176 M(84)=13:F$(84)="BR5BDR5F3ND 

2UHD4G3U4LD2ND2G3NU3HU2E2NRBL5E3 

NRG3ND5GD4F2UF2R5ERE" • @ 

1000 0PEN"0",#1,"F0NT1" 

1010 F0RI=1T084:PRINT#1,F$(I) :NE 

XT 

1020 F0RI=1T084:PRINT#1,M(I) :NEX 

T 

1030 PRINT#1,D:PRINT#1,S:CL0SE#1 
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f 26 . . . 


...143 126 ... 


...245 




45 ... 


...244 149 ... 


....35 




67 ... 


...131 173... 


...216 




86 ... 


...176 END.. 


...221 




109 .. 


....15 











Listing 4: GENF0NT2 

CLS:PRINT@199, "GENERATE FONT2" 
:PRINT@2 61,"BY H. ALLEN CURTIS": 
PRINT@295, "COPYRIGHT 1987 

8 DIMF$(84) ,M(84) ,X(84) ,Y(84) 

9 P=184:D=7:S=6 

10 M(1)=7:F$(1)="BR3RFL3D3GDLUEN 
R5UER3DRD3RU 

11 DATA 7,3,0 

12 M(2)=6:F$(2)="R5ND6FDGNL4FDGL 
5EU4RD4 

13 DATA 6,0,0 

14 M(3)=6:F$(3)="BR2R3NDNFL3G2D2 
F2R3NUNEL2H2U2E 

15 DATA 6,2,0 

16 M(4)=6:F$(4)="R4NDF2ND2LD3LDL 
4EU4RD4 

17 DATA 6,0,0 

18 M(5)=6:F$(5)="R6NDNGL5D3NR3D3 
NLRNU5R4UL 

19 DATA 6,0,0 

20 M(6)=6:F$(6)="R6NDNGL5D3NR3D3 
NLR2HU4 

21 DATA 6,0,0 

22 M(7)=6:F$(7)="BR2R3NDNFL3DLND 
4GD2F2NUR3U3NLRD3 

2 3 DATA 6,2,0 

24 M(8)=5:F$ (8) ="D6RU3NU3R4U3LD6 
RU2 

25 DATA 5,0,0 
M(9)=5:F$(9)="R3NR2D6NR2LNL2U 



26 
5 

27 
28 



DATA 5,0,0 

M(10)=5:F$ (10)="BR3R2ND5GD5L3 
U2LD 
29 DATA 5,3,0 



30 M(11)=6:F$(11)="RD6NLRU3NU3R2 
F2DLUH2E3NLDG 

31 DATA 6,0,0 

32 M(12)=6:F$ (12) ="RD6NLR5U2G2L2 
U6R 

6,0,0 

=6 : F$ ( 13 ) ="D6RU5F2NLNDNR 



6,0,0 

=6 : F$ ( 14 ) ="D6RU6F2NLDNFR 



3 3 DATA 

34 M(13) 
E3D6LU4 

35 DATA 

36 M(14) 
3U3LD6RU2 

37 DATA 6,0,0 

38 M(15)=6:F$ (15) ="BR2NDG2ND2RD3 
RDR2URNU3EU2H2LF 

39 DATA 6,2,0 

40 M(16)=6:F$(16)="R5ND2FDGL3D3N 
RL2EU4RD 

41 DATA 6,0,0 

42 M(17)=6:F$(17)="BR2DLND3GD2F2 
NUR3DNRU2NLNU3EU2H2NDL 

4 3 DATA 6,2,0 

44 M(18)=7:F$(18)="RD6NLRU6R3ND2 
FDGNL2NGD2FRH 

45 DATA 7,0,0 

46 M(19)=5:F$ (19)="BRR3NDNFL3ND2 
GDFNER2 DR2 DNLGL3UL 

47 DATA 5,1,0 

48 M ( 20 ) =5 : F$ ( 20 ) ="NDR5NDL2D6NRL 
2EU4 

49 DATA 5,0,0 

50 M(21)=5:F$(21)="ND5RD6R3U6RD6 

51 DATA 5,0,0 

52 M(22)=7:F$ (22) ="NDRD3ED3ED2RN 
U2EU3FU3RD 

53 DATA 7,0,0 

54 M(23)=6:F$ (23) ="ND6RD6E2NLNUN 
RF2U6RD6 

55 DATA 6,0,0 

56 M(24)=7:F$(24)="F6RH3NH3E3LG6 
RE 2 

57 DATA 7,0,0 

58 M(25)=7:F$(25)="NDRD2RDRD3NLR 



Vldlcom Corp's CoCoWorks Group Proudly Presents 



Si 



*-»@ w 



I@H8S13s'8'tf@ ,K goes ordinary ramdisk one better! It doesn't forget. Fully Static and battery backed-up SolidDrive'" is ready 
to use instantly, no more formatting and copying work files to a ramdisk then carefully copying back your changes to 
floppy. Ilo more fear that the power mill go down and everything you've done mill be lost. The instant power loss is 
detected iaSiSifliiPiSws* 1 write-protects itself and your valuable work. UoSStflUM^S'''' gives you even more since it's 
manufactured using the latest in high reliability surface mount technology allowing us to give you the best guarantee in the 
industry - Two full years limited repair/replacement, top that! laMSISS'Sv©'" is compatible uiith multi-Pak® and comes 
complete with 0S9© device driver, formatter and self-test software. Available in two versions 512K and 1 megabyte with 
factory upgrades available for 512K version. 



iaSMDlf^a'* by Vidicom Corp 
512K (524,268 bytes) $395.°° 
1 meg ( 1 ,048,575 bytes) $695.° ° 



i@HSislIS a 8^@' m is the fastest, most reliable long-term storage 
available for small computer users. Faster than hard disk, no 
moving parts, no mechanical delays, ultra-low power and no noise. 



Please add i't.OO shipping. Visa MasterCard orders welcome Arizona Residents add 5.5% sales tax. 

Vidicom Corp 20 East main Street Suite 525 mesa, Arizona 85201 (602) 827-0107 Hours ITl-F 9:00 Am to 5:00 PIT! mST. 
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2HU2E3LFG2 

59 DATA 7,0,0 

60 M(26)=6:F$(26)="D2E2NLR4NG6DG 
5R5U2G 

61 DATA 6,0,0 

62 M(27)=6:F$(27)="BRBD2R3ND3FDL 
3GLFR2ERDR 

63 DATA 6,1,2 

64 M(28)=6:F$(28)="RND5RD6R3NU3E 
U2HLG 

65 DATA 6,0,0 

66 M ( 29 ) =5 : F$ ( 29 ) ="BRBD2R3NDNFL3 
ND3GD2FR3UR 

67 DATA 5,1,2 

68 M(30)=6:F$(30)="BR3R2D6NRHGL2 
NU3HU2ERF2U3 

69 DATA 6,3,0 

70 M(31)=5:F$ (31) ="BRBD2ND3R3NDF 
DL5NUDFR3 

71 DATA 5,1,2 

72 M(32)=6:F$(32)="BR2R2NDNFL2D3 
NRD3NRL2EU2NLU2 

73 DATA 6,2,0 

74 M(33)=7:F$(33)="BR2BD2ND2GDFN 
R2GNLDR4NEU4FU2NRGHL 

75 DATA 7,2,2 

76 M(34)=6:F$(34)="RD6NLRU2NU4E2 
RD4RU3 

77 DATA 6,0,0 

78 M(35)=3:F$(35)="BRRBD2D4NRL2E 
U3L 

79 DATA 3,1,0 

80 M(36)=5:F$(36)="BR4RBD2ND4LD5 
L3UL 

81 DATA 5,4,0 

82 M(37)=6:F$ (37 ) ="RD6NLRUNU5E3R 
G2DRDR 

83 DATA 6,0,0 

84 M(38)=3:F$(38)="RD6NLR2HU5 

85 DATA 3,0,0 

86 M(39)=6:F$(39)="BD2D4RU4F2E2N 
LD4RU3 

87 DATA 6,0,2 

88 M(40) =5 : F$ (40) ="BD2D4RU4R3D4R 
U3 

89 DATA 5,0,2 

90 M ( 4 1 ) =5 : F$ ( 4 1 ) =" BRBD2ND3GD2 FR 
3NU3EU2HL2 

91 DATA 5,1,2 

92 M(42)=6:F$(42)="BD2RD5NLR2HU3 
ER2ND2FDGL2 

93 DATA 6,0,2 

94 M(43)=6:F$(43)="BRBD2ND2GDFR3 
D2R2HU3NEGU2L2 

95 DATA 6,1,2 

96 M(44)=6:F$(44)="BD2RD4NLR2HU3 
FERD2RU 

97 DATA 6,0,2 

98 M(45)=5:F$ (45) ="BRBD2NR4NDGFR 



3NDFGL4 

99 DATA 5,1,2 

100 M(46)=4:F$(46 
D2FRE 

101 DATA 4,2,0 

102 M(47)=6:F$(47 
U3RD4R 

103 DATA 6,0,2 

104 M(48)=5:F$(48 
FRE2U2LD2 

105 DATA 5,0,2 

106 M(49)=6:F$(49 
NUFDRU4RD2 

107 DATA 6,0,2 

108 M(50)=6:F$(50 
2F2LH4 

109 DATA 6,0,2 

110 M(51)=5:F$(51 
L2E2NL2U3RD2 

111 DATA 5,0,2 

112 M(52)=5:F$(52 
3R5U 

113 DATA 5,0,2 

114 M(53)=5:F$(53 
5G2DE3ND4HL2 

115 DATA 5,1,0 

116 M(54)=5:F$(54 
R2U6 

117 DATA 5,2,0 

118 M(55)=5:F$(55 
DGL2NG2DG2R5UL 

119 DATA 5,1,0 

120 M(56)=5:F$(56 
DGNL2FDGL3UL 

121 DATA 5,1,0 

122 M(57)=6:F$(57 
RNRU2NRNL4U4 

123 DATA 6,3,0 

124 M(58)=5:F$(58 
FD2GL3UL 

125 DATA 5,0,0 

126 M(59)=5:F$(59 
3NU2EUHL3ND2UE 

127 DATA 5,2,0 

128 M(60)=5:F$(60 
D2RU2E 

129 DATA 5,0,0 

130 M(61)=5:F$(61 
3NU5EUHNL2EUHL2 

131 DATA 5,1,0 

132 M(62)=5:F$(62 
2NLRE2U3HND2L2 

133 DATA 5,1,0 

134 M(63)=3:F$(63 
3GBD3L 

135 DATA 3,1,0 

136 M(64)=4:F$(64 

137 DATA 4,0,0 

138 M(65)=6:F$(65 



="BR2ND5G2NR4F 

="BD2ND3RD4R2E 

="BD2ND2RD3NR2 

="BD2ND2RD4RUE 

="BD2F2G2RE4RG 

="BD2ND2RD3FDN 

="BD2NDR5G4LNE 

="BRND5GD4FR3U 

="BR2NGD6NL2RN 

="BRNGNDR3ND2F 

="BRNGNDR3ND5F 

="BR3G3DE4D6NL 

="NR5D2EDR3ND3 

="BR2NR2G2D3FR 

="NDNFR5D2HDG2 

="BRND5GDFGDFR 

="BRND2GDFR3DG 

="BRD4RU4FL3DR 

="DRUBR2DRU 
="BRD6RU4NU2NL 
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2R4HULD6RU2NL5RH 

139 DATA 6,1,0 

140 M(66)=5:F$(66) 
3DRG2LEL3 

141 DATA 5,2,0 

142 M(67)=6:F$(67) 
G5BR4RUL 

143 DATA 6,0,1 

144 M(68)=6:F$(68) 
R2EFRH3DR2ELHU2NFL 

145 DATA 6,2,0 

146 M(69)=2:F$(69) 

147 DATA 2,1,0 

148 M(70)=3:F$(70): 
U2E2 

149 DATA 3,2,0 

150 M(71)=3:F$(71) 
2 

151 
152 



= "BR2RFRL4GRDR 

= "BDDRUBR4NG5R 

= "BR2ND3GD4HDF 

="BRRDLDL 
= M BR2G2D2F2RH2 

="F2D2G2RE2U2H 



DATA 7,1,1 



DATA 3,0,0 

M(72)=7:F$(72)="BRBDRD4LEHNL 
R5NRHELGLD2R2DR 
153 

154 M(73) 
3D2RU4 

155 DATA 5,2,1 

156 M(74)=2:F$(74) 

157 DATA 2,1,5 

158 M(75)=5:F$(75) 



=5:F$(73)="BR2BDD2NL2NR 



= "BRBD5D2NLEU 
= "BD3R5 



159 DATA 5,0,3 

160 M(76)=1:F$(76)="BD5DRU 

161 DATA 1,0,5 

162 M(77)=7:F$(77)="BR6G6RE6 

163 DATA 7,6,0 

164 M (78 ) =1 : F$ (78 ) ="BDDRNUBD3 DLU 

165 DATA 1,0,1 

166 M(79)=2:F$(79)="BRBDDRNUBD3D 
GLEU 

167 DATA 2,1,1 

168 M(80)=4:F$(80)="BR3G3F3RH3E3 

169 DATA 4,3,0 

170 M(81)=5:F$(81)="BD2R5BD3L5 

171 DATA 5,0,2 

172 M(82)=4:F$(82)="F3G3RE3H3 

173 DATA 4,0,0 

174 M(83)=5:F$ (83) ="BRNGNDR3ND2F 
DG2UGBD2R 

175 DATA 5,1,0 

176 M(84)=6:F$ (84) ="BRGD4FNR3U5E 
R3FD3L3U2R2NUDL 

177 DATA 6,1,0 

1000 OPEN"0",#1,"FONT2" 

1010 FORI=1T084:PRINT#1,F$(I) :NE 

XT 

1020 F0RI=1T084:PRINT#1,M(I) :NEX 

T 

1030 PRINT#1,D:PRINT#1,S:CL0SE#1 



/R\ 



J & M'S 3.5" MICROFLOPPY DRIVES 




Give Vf r 
Stora9 e 

Upgrade to the Latest In Technology: J & M's 3.5" microfloppy drives 
allow a 720K format under OS-9 Level 2. (Four times the storage capacity of 
a standard Coco format OS-9 disk on a single microfloppy diskette!) 
Two Configurations Available: The external drive comes complete with 
case, power supply and cable. The internal drive is ready for installation. It 
simply replaces an existing 5.25" half-height drive. Utilize JDOS, RS DOS or 
your DOS. 

Internal SI 99.00 External S250.00 

We accept VISA, Mastercard or prepayment. Or. we can ship COD for cash 
or certified check. Shipping is extra. 

J&M Systems Ltd. 

15100A CENTRAL SOUTHEAST 

ALBUQUERQUE, NEW MEXICO 87123 

505/292-4182 
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ALL OF A SUDDEN YOU'RE IN 




. . .where learning to read music 
...p^V ^ easy and fun! <A^V 



RAINBOW 






NArtr 



p=v 



3t 



it 






NOTELAND, a unique combination of a musical instru- 
ment and a course in music developed by Boston composer 
Andy Gaus, will let you: 

• approach music as a complete 
beginner; 

• learn from an audio cassette 
and a written manual; 

• fool around -and be learning; 

• play a tune with a joystick 
(optional) or cursor keys; 

• record a tune and play it back 
with notation; 

• save your tune on tape or 
disk; ' 

• test yourself with a beat-the- 
clock c|iiiz; 

• load the pmgram from disk or 
cassette if you have a CoCo 1 



fTMmTTmn 

or CoCo 2 with 32K and 
Extended Color Basic; 
• take it home with you— IF 
YOU ORDER NOW- for the 
special introductory price of 
S24.95. (Mass. residents add 
5% sales tax.) 

Be sure to specify disk or cassette. 

Elegant Software 

89 Massachusetts Avenue, Box 251 
Boston, MA 02115 

617-232-3896 
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the rainbow is a teaching environment and we realize that the 
majority of our readers will always be beginners. In our 
continuing effort to always keep the new user in mind, and in 
addition to the many beginner feature articles and programs 
published in every issue, "Novices Niche" contains shorter 
BASIC program listings that entertain as well as help the new 
user gain expertise in all aspects of the Color Computer: 
graphics, music, games, utilities, education, programming, etc. 



Fall Fun on the Run 




Freaky Face 

By Sanjay Parker 



16K 
ECB 



Try this program for a quick laugh. The result looks like 
an escapee from the CoCo Freak Show! 

The listing: FUNFflCE 



110 
12)3 
14)3 
150 

160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2 60 
270 



REM SANJAY PARKER 
REM FUNNY-FACE 
PMODE 3,1 
PCLS3 

CIRCLE (78, 70 ) ,07,4 
CIRCLE (177, 070) ,7,4 
CIRCLE (78, 70) ,17,4 
CIRCLE (177, 70) ,17,4 
PAINT(177,70) ,2,4 
PAINT (78, 70) ,2,4 
CIRCLE (177, 70) ,2,4 
CIRCLE (78, 70) ,2,4 
LINE(96 ,70)-(116,70) 
LINE (15 9, 70)- (139,70) 
LINE(116,70)-(123,55) 




PSET 
PSET 
PSET 



LINE(139,70)-(132,55) , PSET 



280 LINE(132,55)-(123,55) , PSET 

290 CIRCLE (114,135) ,7,4 

300 CIRCLE (143, 135) ,7,4 

310 CIRCLE(128,96) ,90,4 

320 CIRCLE (128, 129 ) ,48,4,1,0, 
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50 

330 

3 40 

3 50 

3 60 

370 

3 80 

390 

ET 

400 

410 

420 

430 

440 



CIRCLE(128,96) ,33,4,2 

COLOR 4,3 

LINE(195,70)-(279,40) , PSET 

LINE(61,70)-(00,40) ,PSET 

PAINT (198, 109) 

PAINT (100, 30) 

LINE (102,125)-(154 ,125), PS 



,2,4 
,2,4 



PAINT(115,147) ,4,4 
,2,4 



PAINT (128, 96) 
PAINT(118,48) 
PAINT (187, 70) 
PAINT(87,70) ,1,4 



,2,4 
,1,4 



450 
25 

4 60 
470 
480 
490 
97 
500 
510 
520 
530 
540 

5 50 



CIRCLE(216,85) ,24 ,4,1, .75, 



,2,4 



PAINT (2 19, 85) 
CIRCLE(38,85) ,24 
PAINT(31,86) ,2,4 
CIRCLE(128,96) ,114 



,4,1, 



25, .75 



,4,1, 



54, 



,4,4 



PAINT (60, 34) 
PAINT(22,67) ,4,4 
PAINT(234,67) ,4,4 
SCREEN1,0 
FOR X=l TO 
X=RND(2 55) : 



2000: NEXT X 
SOUND X,1:GOTO550 



Merry Martian 

By Ed Machurek, Jr. 



16K 
ECB 



" MARTIAN 



Who says Martians are green and mean? This little guy 
winks and smiles and raises his eyebrows all the while. 

The listing: MFIRTIhN 

CLS 

1 PRINT : PRINTTAB ( 8 ) "MARTIAN 

2 PRINT : PRINTTAB ( 4 ) " MA 
RTIAN 

3 PRINT : PRINTTAB ( 10 

4 PRINT : PRINTTAB ( 14 j " 

MARTIAN 

5 PRINT: PRINTTAB (20) 

"MARTIAN 

6 FORX=1TO3000: NEXT: CLS 

7 PRINT : PRINTTAB ( 4 ) " 

8 PRINT : PRINTTAB ( 8 ) " 
REK 

9 PRINT : PRINTTAB ( 12 ) " 
LE 

10 PRINT : PRINTTAB ( 14 ) " 
E 

FORX=1TO6000 : NEXT : CLS 

PMODEl,l 

PCLS 



BY 
ED MACHU 

NEW CAST 

DELAWAR 



SCREEN 1,1 



110 

120 

130 

140 

150 DRAW"BM129,130;R70;G14;H10;G 

10 ; H10 ; G10 ; H10 ; G10 ; H10 ; G10 ; H10 ; G 

10;H10;G10;H14;R78" 

160 CIRCLE(086, 086) ,20,3 

CIRCLE (172, 86) ,20,3 

CIRCLE (126, 99) ,07,4 

DRAWBM60 , 50 ;U4 ;R30 ; D4 ; L30" 

DRAW'BM 168,50 ;U4 ;R30 ; D4 ;L3 



170 

180 

190 

200 

0" 

210 




CIRCLE(126,96) ,95,3 



220 
230 
240 
2 50 
2 60 
270 
2 80 
290 
300 



320 
330 
340 
3 50 
3 60 
370 
380 
390 
400 
410 



CIRCLE (90 
CIRCLE (17 
PAINT (90, 
PAINT (17 6 
CIRCLE (90 
CIRCLE (17 
PM0DE1,3 
PCLS 
DRAW "BM 12 

H5;G5;H5;G5;H 

;G5;H5;G5;H5; 

5;H7;R125" 

310 CIRCLE (86 
CIRCLE (17 
CIRCLE (12 
DRAW"BM60 
DRAW "BM 16 
CIRCLE (12 
CIRCLE (90 
CIRCLE (17 
PAINT (90, 
PAINT (17 6 
CIRCLE (90 



,90), 10, 3 
6, 90), 10, 3 
90) ,6,3 
,90) ,2,3 

,90) ,5,0 
6,90) ,5,0 



9,130; R70 ; G7 ; H5 ; G5 ; 
5 ; G5 ; H5 ; G5 ; H5 ; G5 ; H5 
G5 ; H5 ; G5 ; H5 ; G5 ; H5 ; G 

,86) ,20,3 

2,86) ,30,1, .50,0 

6 99) 7 4 

, 50 ;U8 ;R30 ; D8 ; L30" 

8 , 50 ;U8 ;R30 ; D8 ; L30" 

6,96) ,95,3 

,90), 10, 3 

6,90) ,10,3 

90), 6, 3 

,90) ,2,3 

,90), 5,0 
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420 PM0DE1,1 

4 30 SCREEN1,1 

440 FORI=lTO20j3:NEXTI 

450 PM0DE1,3 



4 60 SCREEN1,3 

470 FORI=lT02jZf)3 : NEXTI 

480 GOT042^l 




16K 
Disk 



A Demonstration in Art 

By Ricky Suiphin 



Looking for a way to show off your CoCo? Run this 
program and become the center of attention! You'll think 
your CoCo went to a modern art gallery and absconded with 
an objet d' art. 

The computer starts by picking random start and stop 
points in the Hi-Res (PMDDE A) mode. You can gain access 
to the main menu by pressing any key once the artwork has 
stopped. By pressing the key of the option you want, you can 
save and load a picture, draw a new picture, look at a list 
of available pictures or end the program. Selecting the End 
option completely erases the program from memory and your 
computer resets. You might omit this line, if entering by hand, 
until you're through typing and have a copy on disk. 

When saving a copy, don't enter an extension with the 
name; the program automatically adds .ART to the filename. 
It's the same when loading files, too. 

Your files will consume three grans each. To save other 
PflDDE 4 screens to disk, use this command: 

SMLWname.exi" , 35B4 , 9727,3584 
The listing: CDCDflRT 

10 GOTO90 

20 FORJ=0TOM 

30 POKE65495,0'HIGH SPEED 

40 P(J)=P(J)+V(J) 

50 IFP(J)<0THENP(J)=0:V(J)=-V(J) 

60 IFP(J)>L(J)THENP(J)=L(J) :V(J) 

=-V(J) 

70 NEXT 

80 RETURN 

90 CLEAR 

100 DIMP(3) ,V(3) ,L(3) 

SCREE 




80 



110 


PCLEAR4 : PMODE4 , 1 : PCLS5 


Nl,. 


L 




120 


L(0) 


=255:L(1)=191 


130 


L(2) = 


=L(0):L(3)=L(1) 


14j3 


FORJ= 


=0TO3 


150 


P(J) = 


=RND(L(J) ) 


160 


V(J)« 


=RND(0)*2-4 


170 


IFV(J)=0THENV(J)=1 


180 


NEXT 




190 


M=3 
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200 FORI=0TO200 

210 GOSUB20 

220 LINE(P(0),P(1))-(P(2),P(3)) 

PRESET 

2 30 NEXT 

240 A$=INKEY$:IFA$=""THEN240 

250 POKE65494,0 'NORMAL SPEED 



COCO GRAP 

MENU" 

[1] SAVE IT"," 

[3] VIEW IT"," 

[5] DIR"," [6] 

ENTER OPTION 



2 60 CLS: PRINT, , 
HICS DEMO"," 
270 PRINT, , , ," 
[2] LOAD IT"," 
[4] DRAW IT"," 
QUIT",,,,,,," 
NUMBER" 

280 A1$=INKEY$:IFA1$=""THEN280 
290 IFA1$="1"THENGOSUB380 
300 IFA1$="2"THENGOSUB450 
310 IFA1$="3"THENGOSUB490 
320 IFA1$="4"THENGOSUB510 
330 IFA1$="5"THENGOSUB520 
340 IFAl$="6"THEN57p 

3 50 GOT02 6# 
3 60 GOTO3 60 
370 GOTO 10 

3 80 CLS:INPUT"GIVE IT A NAME";N$ 
3 90 IFN$=""THEN3 80 

400 IF LEN(N$)>8THENPRINT"THAT'S 
TOO LONG" :FORX=1TO500:NEXTX: GOT 
0380 

410 SAVEM N$+"/ART", 3584, 9727,35 
84 
420 PRINT"ITS DISK FILE NAME IS 



";N$;"/ART" 

430 FORX=1TO4000:NEXTX 

GOTO2 60 

CLS: INPUT "WHAT'S ITS NAME" ;N 



440 
450 

1$ 

4 60 

410 

480 

490 

500 



IFN1$=""THEN450 

LOADM Nl$+"/ART" 

GOTO260 

PMODE4 , 1 : SCREEN1 , 1 

A2$=INKEY$:IFA2$=""THEN500EL 
SE260 
510 GOTO10 



520 DIR 

530 PRINT : PRINT" WITH"; FREE (0 ) ; " 

GRANULES REMAINING," 

540 PRINT"PRESS ANY KEY TO CONTI 

NUE . " 

550 EXEC4453 9 'HOLD UNTIL KEY IS 

PRESSED 

560 GOTO2 60 

570 POKE113,0:EXEC40999 'CLEARS 

UT MACHINE! LIKE TURNING IT OFF 

AND THEN ON AGAIN! 



Mirror Image 

By Keiran Kenny 



16K 
ECB 



Playing with this fun program is like creating a Rorschach 
test with an Etch-a-Sketch. After you finish drawing, you can 
give someone a personality test. 

With this program, you can draw a picture in the right half 
of the graphics screen (128, 1-255, 191), and it will be repeated 
as a mirror image on the left half of the screen. 

The program uses PEEK (135) and the keyboard. Use the 
arrow keys for up, down, left or right movement; Q for 
northwest; W for northeast; A for southwest; and S for 
southeast. 

Start with a pixel set at 128,96. Pressing 1 gives you a 
flashing cursor, and 2 restores the pixel. Press 3 to save a 
picture and 4 to load a saved picture. 

You need only press a direction key once, and your trace 
or cursor will continue moving in the chosen direction until 
you press another key. When your trace or cursor is at the 
edge of the screen or at horizontal position 1 28, it stops until 
you press another key. 

The program only responds to direction keys that will 
move it along or away from the boundary of the graphics 
screen. 

The listing: MI RORP IX 

'MIRORPIX': BY KEIRAN KENNY, 

THE HAGUE, 1987. 
10 PMODE4,1:COLOR0, 5 :PCLS: SCREEN 

1,1 

20 X=128:Y=9 6:H=128:V=96 

30 PSET(X,Y,0) :GOTO90 

40 P=PEEK(13 5) 

50 IFX=128ANDP=650RX=128ANDP=810 

RX=128ANDP=8THENH=128:POKE135,0: 

GOTO2 20 

60 IFX=255ANDP=870RX=255ANDP=8 30 

RX=255ANDP=9THENH=1 : POKE135 ,0 : GO 

TO220 

70 IFY=1ANDP=810RY=1ANDP=870RY=1 

ANDP=94THENV=Y : POKE13 5 , : GOTO220 

80 IFY=191ANDP=650RY=191ANDP=830 

RY=19 1ANDP=10THENV=Y : POKE13 5 , : G 




OTO220 

90 IFP=94THENY=Y-1:V=Y 
100 IFP=10THENY=Y+1:V=Y 
110 IFP=8THENX=X-1:H=H+1 

120 IFP=9THENX=X+1:H=H-1 

130 IFP=65THENX=X-1:Y=Y+1:H=H+1: 

V=Y 

140 IFP=81THENX=X-1:Y=Y-1:H=H+1: 

V=Y 

150 IFP=87THENX=X+1:Y=Y-1:H=H-1: 

V=Y 

160 IFP=83THENX=X+l:Y=Y+l:H=H-l: 

V=Y 

170 IFP=49THENC=5 

180 IFP=50THENC=0 

190 IFP=51GOSUB230 

200 IFP=52GOSUB240 

210 IFC=5THENCOLOR0:LINE(X-1,Y-1 

) - (X+l , Y+l) , PSET , BF : COLORC : LINE ( 

X-1,Y-1)-(X+1,Y+1) , PSET , BF : COLOR 

: LINE (H-l , V-l) - (H+l , V+l) , PSET , B 

F: COLORC: LINE (H-l , V-l) - (H+l , V+l) 

,PSET,BF ELSEPSET(X,Y,C) :PSET(H, 

V,C) 

2 20 GOTO40 

230 POKE13 5 , : CSAVEM" " , PEEK ( &HBA 

) *256,PEEK(&HB7) *256-l, &HB44A:RE 

TURN 

240 PCLS : POKE 13 5, 0:CLOADM: RETURN 
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Prepare Before You Paint 

By Bill Bernico 



16K 
ECB 



Poke 1 78 and Graphics Locator is a handy tool for graphics 
programmers. 

Part one is the Locator section and uses the right joystick. 
Upon running, you'll see two numbers separated by a comma 
in the upper left-hand corner of the screen. Moving the 
joystick advances a cross-hair cursor around the screen. As 
it moves, the coordinates of that cursor will also change. 
Locator helps you estimate the approximate location on the 
screen where you'd like to draw something. 

To move on to part two, the Poke section, press P and a 
new screen appears. POKE 178,0 is displayed, and directly 
below that is a black box, which is colored by a POKE 178 
with a zero. Use the up and down arrow keys to change that 
zero to a number up to 255. Change the number and the box 
will be colored by that particular poke value. This is handy 
for visualizing how graphics would look printed a certain 
color. 

The box is colored using PSET,BF, which is Background 
Fill. You can also use the POKE 17B values in PRINT 
statements to achieve these colors. Right before your PAINT 
statement, add POKE 178, v (v is the value of the color you 
want). Now change your PRINT statement to PRINT 
( X , Y ) , , and your paint will use the color in the POKE 178 
statement. 

To return to part one, press L. Exit either screen by pressing 
Q (Quit). 

The listing: P178&GL 

1 'POKE 178 & GRAPHICS LOCATOR 

by Bill Bernico 

2 DIMK$(57) :C$="NU2ND2NL2NR2" :M$ 
="BR4RDNGUBR" : FORL=48T057 : READK$ 

(L) : NEXT : DATA M BR4HU4ERFD4GNLBR2 " 



,"BR3R2U6NGD6R2","BR3BU5ER2FDG3L 
DR4 " , " BR3 BU5ER2 FDGNLFDGL2NHBR3 " , 
"BR6U6G3R4BD3" , "BR3BUFR2EU2HL3U2 



" , "BR3BU6R4DG3D2BR3 

3 DATA"BR4HUER2EUHL2GDFR2FDGNL2B 
R","BR4R2EU4HL2GDFR3BD3":PMODE4, 
1 : PCLS 1 : SCREEN1 , 1 : COLOR0 , 1 

4 I$=INKEY$ : IFI$="P"THEN7ELSEIFI 
$="Q"THENCLS:END 

5 POKE178,0:GOSUB6:H=INT(JOYSTK( 
0) *4.049) :V=INT(JOYSTK(l) *3.045) 
:GOT04 

6 PCLS1:K$=STR$(H) : DRAWBM2 , 10" : 
GOSUB17 : DRAW"BM27 , 10DNGU" : K$=STR 
$ (V) : DRAWBM30 , 10" : GOSUB17 : DRAW" 
BM=H ; , =V ; C0 " +C$ : RETURN 

7 V=0: PCLS 1: DRAW" BM50 , 20U8R4FD2G 
L4D4BR10HU6ER4FD6GNL4BR6U8D4RNE4 
F4BR4NR6U4NR4U4R6BM9 5 , 20RU6NGD6R 
BR3BU6R4DG3D2BR7HUER2EUHL2GDFR2F 
DGNL2BR3URDNLGBU5" : LINE (59 , 39) - ( 
101,71) ,PSET,B 

8 GOSUB1 6 : POKE178 , V: LINE ( 60 , 40 ) - 
(100,70) ,PSET,BF 

9 I$=INKEY$:IFI$=""THEN9 

10 IFI$=CHR$(94)THENV=V+1 

11 IFV>2 55THENV=0 

12 IFI$=CHR$(10)THENV=V-1 

13 IFV<0THENV=2 55 

14 IFI$="L"THEN5ELSEIFI$="Q"THEN 
CLS:END 

15 GOT08 

16 POKE178,0:LINE(117,22)-(143,1 
2) , PRESET, BF:K$=STR$(V) :DRAW"BM1 
18 , 20C0 » : GOSUB17 : RETURN 

17 FORX=lTOLEN(K$) :Y=ASC(MID$(K$ 
,X,1) ) :DRAWK$(Y) : NEXT: RETURN 



Mow Cold Is It? 

By Harvey Deltmann 



16K 
ECB 



Wind Chill is an accurate way to determine the wind chill 
temperature just by entering the temperature and wind 
velocity at the prompts. When you enter anything above 9 
degrees Fahrenheit and a wind velocity, you get the wind chill. 
If you enter 9 degrees or lower with a wind velocity of 10 
mph or more, you will get a little surprise! (Try entering 86 
degrees with a wind velocity of 0, and you'll gel another little 
surprise.) 

The listing: WINDCHIL 



10 
20 
30 



82 



1 WIND CHILL 

' ******************* 

1 * HARVEY DETTMANN * 
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40 ' * SUSSEX, WIS. * 
50 ' * 53089 * 
50 i ******************* 

70 CLS 

80 PRINT@40,"** WIND CHILL **" 

90 PRINT: PRINT 

100 INPUT " TEMP (F) : "; T : PR 

INT: INPUT " WIND VELOCITY:"; V 

: IF V<4 THEN V = 4 

110 C=((10.45 + (6.686112 * SQR( 

V) ) -(.447041 *V) ) /22.034 * (T-9 

1.4)) +91.4 

120 PRINT 

130 PRINT USING " WINDCHILL ## 

#.####";c 

140 PRINT: PRINT 

150 IF C<-10 THEN PRINT " BR-R- 

R C-C-C-COLD ! ! " 



160 IF C>85 THEN PRINT " HHHHH 

-HOT HOT" 

17J3 PRINT 

180 INPUT" ANOTHER TRY (Y/N)";R 

$ 



190 IF R$="Y"THEN 70 ELSE 200 

200 CLS:PRINT@2 3 6,"e n d":GOTO 2 

10 

210 GOTO 210 




4K 



It's a Touchdown! 

By Darrel Behrmann 



This program is a Simulation based on hand-held football 
games. The object is simply to score a touchdown. 

The player is shown on the screen as an 'X', and the 
opposing team (controlled by the computer) is shown with 
dashes (— ). Press the arrow keys to move the player up, down 
and across the screen. The player can't move backward. 

The tacklers move toward the player at a rate determined 
by the level of difficulty you select. Two tacklers may occupy 
the same position simultaneously. Yards to go to a first down 
are shown at the top of the screen, while yards to a touchdown 
are shown below. Have fun! 

The listing: FOOTBALL 

'COPYRIGHT (C) 1987 
BY DARREL BEHRMANN 
10 i *************************** 

20 '** FOOTBALL 

30 •** BY DARREL BEHRMANN 

40 '** U-251 RD. 16 RT. 1 

50 '** NAPOLEON, OH 43545 

60 '** JANUARY 1987 

70 • *************************** 

80 CLS: INPUT "EASY OR HARD (0-9) 

" ; DF 

90 YDS =80:DN=10:D=1 

100 CLS 

110 H=0:V=0:H(l)=3:V(l)=-l:H(2) = 

3:V(2)=0:H(3)=3:V(3)=l:H(4)=5:V( 

4)=0:H(5)=7:V(5)=0 

120 FOR X=170 TO 181: PRINT @X,CH 

R$(128) ;: NEXT :PRINT@202,CHR$ (128 

) ;:PRINT@234,CHR$(128) ;:PRINT@26 

6 , CHR$ ( 128 ) ; : PRINT@2 13 , CHR$ ( 128 ) 

; :PRINT@245,CHR$(128) ; :PRINT@277 

, CHR$(128) ; :FORX=298 TO 309:PRIN 

T@X , CHR$ (128);: NEXT 

130 PRINT @2 3 5+H+V*3 2,"X"; 

140 FOR X=l TO 5: PRINT §2 3 5+H(X) 

+V(X) *32,"-"; :NEXT 

150 PRINTS 2, "YARDS TO GO :";DN:P 

RINT @34,"DOWN NO : " ; D 

160 PRINT @ 4 50, "YARD TO GO TO TOU 

CHDOWN :";YDS 



170 I$=INKEY$ 
180 OH=H:OV=V 
190 IF 1$="*" THEN IF VO-1 THEN 

V=V-1 
200 IF I$=CHR$(9) THEN YDS=YDS-1 
:DN=DN-1:IF H<>9 THEN H=H+1 ELSE 

H=0 
210 IF YDS=0 THEN SOUND 255,55:R 
UN 

220 IF DN<=0 THEN DN=0:MI=1 
230 IF I$=CHR$(10) THEN IF Vol 
THEN V=V+1 

240 PRINT@235+OH+OV*32," " ; 
250 FOR X=l TO 5: IF H=H(X) AND V 
=V(X) THEN SOUND 100 , 10 : SOUND 1, 
5:DN=DN+1: YDS=YDS+1 : GOTO 2 90 

2 60 NEXT X 

270 IF RND(10-DF)=1 THEN GOSUB 3 

30: 'MOVE TACKLERS 

280 GOTO 130 

290 I $=INKEY$: 'TACKLED 

300 IF MI=0 THEN D=D+1:IF D=5 TH 

EN SOUND 10, 10: SOUND 1 , 5 : CLS : PRI 

NT YDS ; " YARDS TO A TOUCHDOWN . " : 

D=l:YDS=80: INPUT "PRESS ENTER TO 

PLAY AGAIN" ;AN$: RUN 
310 IF MI=1 THEN MI=0 : DN=10 : D=l 
320 GOTO 100 

3 30 MT=RND(5) :HV=RND(2) 

340 OH(MT)=H(MT) :OV(MT)=V(MT) 
350 IF HV=1 THEN IF H(MT)<H THEN 

H(MT)=H(MT)+1 ELSE IF H(MT)>H T 
HEN H(MT)=H(MT)-1 
360 IF HV=2 THEN IF V(MT)<V THEN 

V(MT)=V(MT)+1 ELSE IF V(MT)>V T 

HEN V(MT)=V(MT)-1 

370 PRINT@235+OH(MT)+OV(MT)*32," 
it . 

380 RETURN 

Contributions to "Novices Niche" are welcome from everyone. We 
like to run a variety of short programs that can be typed in at one 
sitting and are useful, educational and fun. Keep in mind, although 
the short programs are limited in scope, many novice programmers 
find it enjoyable and quite educational to improve the software 
written by others. 

Program submissions must be on tape or disk. We're sorry, but 
we cannot key in program listings. All programs should be supported 
by some editorial commentary, explaining how the program works. 
If your submission is accepted for publication, the payment rate will 
be established and agreed upon prior to publication. 
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CoCo3 



Much Ado About 
Nothing 



By Joseph Kolar 
Rainbow Contributing Editor 



Last month we took our first ten- 
tative steps to immerse ourselves 
into the vast, newly-discovered 
sea of CoCo 3 concepts. The water 
wasn't too deep, and we got a taste of 
things to come. 

Our thesis for today is that, too often, 
we race through a tutorial, complete 
and save the results, and race off to 
chase down the next challenge, little 
realizing more challenges stalk us at the 
very instant we supposedly finish our 
last project. 

We need to oil the squeaky cogs of our 
minds and use the resultant program as 
a stepping stone to greater creative 
efforts. 

Type Listing 1. You may have saved 
it last month and squirreled it away. If 
so, save time — load and run it. Did you 
notice on the first trial, the screen was 
completely green? Only after pressing 
BREAK and typing RUN did the desired 
screen color emerge. 

The three strips of text seem final. At 
first blush, it seems that except for 
relocating the lines, we can do nothing 
further to enhance, modify or improve 
our work. A creative dead end has been 
reached. 

The three strips were placed near the 
top of the screen to keep the work in 
progress as near to eye level as practical. 
Relocating can wait until the program 
is set in concrete. Repositioning is a joy 
using the LOCATE statement. 



Florida-based Joseph Kolar is a veter- 
an writer and programmer who special- 
izes in introducing beginners to the 
powers of the Color Computer. 
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If you pause to stare at the display 
and don't get mesmerized by the blink- 
ing strip, you may detect a flickering 
creative thought. You will find, as a 
newcomer to the CoCo 3, that revising 
an existing tutorial is very productive. 
You gel additional practice to sharpen 
your new skills. 

The first thing that came to mind was 
to replace my name with another. Since 
I love my name, the next idea was to 
restore it in place of the unsurping 
name. This is just another way to say 
"alternate two names." 

The plan evolved! Without changing 
any colors of K0K0NUT1, modify the 
program to alternate Joseph Kolar and 
Belinda Ramsey. 

When working on a program, it is 
advisable to make frequent saves. After 
I give my first save a full name, each 
following modification uses only the 
first letter and a number for each suc- 
ceeding save. If it is merely a variant of 
the previous one with no significant 
change, 1 add a letter. Thus, K4A is the 
fifth progression of K0K0NUT1 that is a 
renumbered version of l<4. K4B is the 
sixth progression, but the multiple LINE 
statements were broken up into individ- 
ual LINE statements. Type SI PRINT" 
BELINDA RAMSEY"; and run. 

This is Listing K3A, which indicates 
this is a slight modification, A, of the 
fourth modification, 3. in the KDKONUT, 
K, series. 

DEL199- 

300 WIDTH40:LIST 

100 GOTD100 

Now run this. Belinda came out OK, 
but we lost Joseph. Type: 



G0 IF PEEK(343=191) THEN 

GDT0S1 ELSE G2 
G2 PRINT" JOSEPH KOLAR"; 

Run this. All we get is Joseph. Fl 
doesn't do a thing. 

Mask Line 60 with a REM and run. We 
get both names. Unmask Line 60. Now 
type PRINT PEEK=(343) and press 
ENTER. 

We get 255, which is why we get Line 
62. If Fl were pressed, it would be 191 
and the CoCo would be directed to Line 

61. We must find some way to activate 
Line 61. 

At the end of Line 6 1 , type: 

:GDTO200 (We want to bypass 

Line 62.) 
DEL100 

199 IF PEEK (342) =191 THEN 
G0T0G1 ELSE 200 

200 IF PEEK (342) =191 THEN 
GOTO G2 ELSE 199 

Now run and press CTRL. We are on 
the right track, even though it doesn't 
look like it. Line 199 tells us to type 
G0T0G1 to see if CTRL is pressed. If it 
isn't, type GOTO200. If it is pressed, type 
G0T0G2 or else go back to Line 199. In 
other words, CTRL must be pressed or 
the CoCo loops, patiently waiting for 
that happy event. 

What we must do now is bring the 
two names into the red ribbon strip. REM 
both lines 40 and 50. 

At the beginning of both lines 61 and 

62, type L0CATE11,5:ATTR4,7:. Run 
and press CTRL. Repeat this a few times. 
Sometimes we get one or the other of 
the two names. The third ribbon of text 



is shaky. Once in a blue moon, we get 
an orange background. 

This is Listing K. Type DEL40-50. 

In order to stop the third strip from 
quivering like jello, stabilize the display 
and get rid of the cursor after Belinda, 
in front of Line 200, type LD- 
CATE0,0:ATTR2,4:. This moves the 
cursor away from the main display. Just 
to be safe and make sure we don't get 
an orange screen, in front of Line 199 
type ATTP.2,4: and run. 

To use the ALT key for Belinda, 
change 342 to 341 in Line 200. Now 
run. Toggle between the CTRL and ALT 
keys. This is Listing Kl. 

Mask Line 50 and run. The third strip 
is missing until CTRL is pressed. This 
means we must relocate lines 61 and 62 
after Line 90. 

Rekey Line 61 as Line 91 and rekey 
Line 62 as Line 92. Type DELG0-62. 

In Line 99 change SI to 91. In Line 
200 change 62 to 92 and run. Type 
RENUM10000,0,10 and run. This was 
done to avoid programming confusion, 
because the first digit of the line number 
falls off the screen on my TV. This is 
Listing l<2. 

Toggling back and forth gave me the 



idea to coordinate the blue strip with the 
orange strip by giving the blue strip a 
meaningful title. It didn't take much 
head-scratching to pick a pair of titles. 

Since Belinda appeared after typing 
RUN, rekey 10050 " TUTORIAL FDR 
BELINDA";. Start with two blank spa- 
ces to maintain symmetry. Now run. It 
looks good. Toggle between the CTRL 
and ALL keys. 

It finally dawned on me that I needed 
two parallel constructions to keep 
Joseph and Belinda separate. 

Edit Line 10090 to insert at the begin- 
ning the information embedded in lines 
10030 to 10050. Type 10090 L0- 
CATEB,2:ATTR3,2,B:PRINT" TUTOR- 
IAL FOR BELINDA. Now run. 

Edit Line 10 100 and insert at the 
beginning the hot scoop from lines 
10030 to 10050 — except change BE- 
LINDA to JOSEPH. Leave a blank trail- 
ing space after JOSEPH and don't forget 
to insert a colon (:) between each state- 
ment in the new line. Now run. Type 
DEL10030-100S0 and run. This is 
Listing l<3. 

Type DEL10110. In front of Line 
10120, type LOCATE0,0: and run. 

This is Listing K3A. which indicates 



this is a slight modification, A, of the 
fourth modification, 3, in the KOKONUT, 
K, series. 

All we must do now is add the infor- 
mation in lines 10060 to 10080 to the 
end of Line 10100. 

Add the following to Line 10100: 
L0CATE8,8:ATTR2,4:PRINT" INVER- 
NESS, FL., 32G50"; and run. 

In Line 10090, in front of :G0T0 
10130, type L0CATE8,B:ATTR2,4 
:PRINT" HERNANDO, FL. , 32G42". 
Note two blank spaces in front of the 
ZIP. Now run. 

Type DEL100G0-100B0 and run. 
Note that you always check your work 
to see if it is OK — before you delete 
supposedly redundant program lines. 
This is Listing l<4. 

Type RENUM0, 10000, 10 and run. 
This is Listing K4H. 

If you want to view the listing in the 
regular 32-by-16 text format, simply 
type WIDTH32, press ENTER and type 
LIST. 

Since the high program line numbers 
tend to confuse, Listing K4A is merely 
a more acceptable line numbering se- 
quence. It is a condensed, multiple LINE 
statement program. 




DISKMASTERS, INC. 

P.O. BOX 223 - RNB 

SKOKIE, IL 60076 

(312) 679-DISK 

• DISKETTES • 

100% CERTIFIED ERROR-FREE 
LIFETIME GUARANTEED 

5% Inch BULK PRICES 

100 DS/DD - 560/ea $ 56.00 

250 DS/DD - 540/ea $135.00 

500 DS/DD - 51C/ea $255.00 

1000 DS/DD - 490/ea $490.00 

The above disks manufactured by BASF — but 

have no manufacturers labels. 

All 5% in. disks complete with Tyvek Sleeves, ID 

Labels, Write Prof. Tabs, and Reinforced Hub 

Rings 

Many other Items available 

3% In. disks SS/DD & DS/DD, 

High Cap AT type disks. 

Ribbons for most popular printers, printer stands, 

and much more, 

Call or write for latest prices or our latest 
catalog. 

Add 5% shipping & handling. Illinois residents 
add 7% tax. 

We accept, VISA MC, DISCOVER, Personal & 
Company Checks, Money Orders, & C.O.D. 



Run VIP 

on your 

CoCo 3! 



Upgrade your VIP writer, VIP Speller, VIP Calc, VIP 
Database or VIP Terminal to run on your Color 
Computer 1 , 2 or 3 for only $30.00 each! Send 
diskette only and check or money order for $30. 



Upgrade your VIP Product to the VIP Integrated 
Library, which includes the VIP Writer, VIP Speller, 
VIP Calc, VIP Database, VIP Terminal and VIP Disk- 
Zap, for only $1 05.95.You save $45! Send entire 
VIP product and check or money order for $105.95 



P. O. Box 1064. Sandy, Oregon. 97055 

Checks allow 3 weeks for delivery. 
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For the newcomer KoKonuts, or 
should ! say CoConauts, who find 
multiple LINE statements uncomforta- 
ble to handle. K40 is broken down into 
one statement per program line. 

You should be able to dope it out and 
follow the action. You will be struck 
with how simple the program really is. 
Outside of being aware that the pro- 
gram isn't earth-shattering, you may 
wonder, why K4B wasn't created in the 
first place. 

Sad to say, but the obvious solution 
eluded me. Only through trial and error 
did I manage to get on the right track, 
and even then I had to grope around 
seeking the best way to make it work to 
my satisfaction. It was fun solving each 
small problem that inexorably ad- 
vanced to its completion. 

When I looked at K0K0NUT1, I didn't 
foresee the final product. Each vaguely 
defined idea gradually coalesced until a 
definite program was envisioned. Once 
the end product was conceptualized, it 
was a matter of working stubbornly 
toward the goal. You were left to your 
own initiative to save or not to save any 
of the intervening listings we developed. 

For your homework assignment, 
from what you have discovered in last 
month's tutorial, substitute the F! and 
F2 keys to flip back and forth between 
displays. 

If you are a glutton for punishment, 
type in TRDN, press ENTER and study 
K4B. You will see some jittery line 
numbers in brackets at the top of the 
display. Press CTRL and hold it. You will 
be able to compare the bracketed line 
numbers with Listing K4B. It starts out 
waiting for a key to be pressed. One or 
the other must be pressed. The default 
is the Belinda display, which skirts the 
Joseph one with the GOTO30 instruc- 
tion. Can you trace the routes that the 
program took? 

To come full circle and convert K4B 



on the CoCo 3 to the Lo-Res, 32-by-I6 
text screen and make an equivalent 
program, type 20 WIDTH32 and run. 

It was relatively easy to convert the 
program. Whatever lines bombed out, 
the CoCo began from the beginning of 
the listing and rewarded me with an HP 
Error message (Hi-Res print error). I 
edited the guilty line to an equivalent 
Lo-Res statement (i.e., PRINTS.v, ""; in 
place of L0CfiTEo,6). 

X was determined by trial and error 
and the lines adjusted to maintain 
symmetry. These were the changes I 
made: 

Lines 31 and 40, type PRINT037, ""; 
Lines 33 and 43, type PRINTS 

104,""; 
Lines 36 and 46, type PRINTS 

1G5,""; 
Lines 32 and 42, remove one space at 

the beginning. 
Lines 35 and 45, take out one space 

between the names. 
Line 38, remove one space before the 

ZIP number. 
Line 45, insert one space at the end. 
Line 48, remove the period. 
Lines 50 and 60, mask with REM and 

run. 

Note: RTTR statements are ignored by 
the CoCo 3. Remarked, Hi-Res lines are 
harmless. If you have a CoCo 3, you 
may use the ALT, CTRL, Fl and F2 keys 
in the 32-by-l6 mode. 

Type 29 CLS3. In front of Line 40. 
type CLS4:. Delete lines 31, 34, 37, 41, 
44,47, 51 and 61. In Line 52, change 30 
to 25 and run. This is Listing KS. 

The program could have been refined 
further by making Line 32 begin with 
PRINTS37, instead of PRINT and 
DEL30 and so forth. Make all the re- 
quired changes. Type DEL50 and DELG0. 
In lines 39 and 52, change S0 to G2. This 
is Listing KG. 



The enterprising CoCo 3 owner will 
want to convert KG so owners of older 
CoCo models can view the unvarnished 
version. 

Compare listings KG and K7. Lines 10 
and 20 were both killed because older 
CoCo models did not understand the 
CoCo 3 statements. Now run. 

Lines 32 and 35 added the final blank 
space, and Line 38 had the period 
removed. Moving to the other display. 
Line 48 was relocated one unit to the 
left; the period was edited out; a final 
blank space was added. 

Do you recall that last month it was 
brought to your attention that in a 
PRINT statement the CoCo 3 automat- 
ically adds a final blank space if the 
semicolon is used? This is not the case 
with the older models; therefore, we had 
to realign the characters. 

Type DEL52-G2. These lines were 
unintelligible to older versions of the 
CoCo 3. To parody these missing keys, 
ALT and CTRL, the INKEYS function was 
substituted. If the up arrow key was 
pressed, the CoCo was instructed to 
display Belinda, and if the SHIFT and up 
arrow keys were pressed, then Joseph 
would be displayed. If the @ key was 
tapped, the program would be listed. If 
no keys were pressed, the CoCo would 
wait patiently for some instruction. 

Finally, Line 39 was changed, after 
the initial display of Belinda, to go to 
INKEYS to await the user's pleasure. 

When I printed the listing from the 
CoCo 3, Line 53, the left arrow was 
printed as an underline in the listing on 
my printer. This is Listing l<7. 

Looking back at what we created, it 
sure isn't impressive. In fact, it is down- 
right mundane. This tutorial is much 
ado about nothing. Thanks to the ado, 
1 hope you have enjoyed the jaunt 
through some of CoCo's features and 
had a productive learning expe- 
rience. □ 



Listing 1: 

' <KOKONUTl> 

5 ON BRK GOTO 3 00 

10 WIDTH40 

16 LOCATE8,2 

20 ATTR 3,2,B 

30 PRINT" Tutorial For Kokonuts" 

/ 

40 LOCATE 11, 5 

50 ATTR4,7 

60 PRINT" JOSEPH KOLAR " ; 

70 LOCATE 8, 8 



80 ATTR2,4 

90 PRINT" INVERNESS, FL. , 32650" 

95 LOCATE0,0 

199 IF PEEK(341)=191 THEN LOCATE 
12,11 ELSE IF PEEK(342)=191 THE 

N LOCATE 12,15 ELSE GOTO 199 

200 PRINT" HELLO THERE! " ; : LOCA 
TE0,0 

201 IF PEEK (343) =191 THEN RUN EL 
SE IF PEEK(344)=191 THEN LIST EL 
SE 201 

300 WIDTH32:LIST100- 
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During September 1987 OWL-WARE is 5 years old! Our current owl logo 
was first formed in October of that year. Now that our logo is five years, 
someone said it should have a name. We don't know if the owl is a he, she, 
or it. You help us decide! Rules arc as follows: 

1. All entries must be is writing and received by Oct. 8, 1987 or at Rainbowfcst 
Oct. 9 or 10. No phone entries. 

2. All entries becomes the property of OWL- WARE, and owl names will be 
used in ads as we wish. 

3. No purchase necessary. 

4. To win you must be the first entry of a selected name. There will be 4 
different names winning prizes. 

5. At least one of the winning names will be selected from an entry at 
Rainbowfest. 

6. Prizes will be in OWL-WARE gift certificates as follows: 1st S250, 2nd 
Si 00, 3rd. $50, and S50 from Rainbowfcst entries only. 

7. Winners will be announced at Rainbowfcst Oct. 1 1. 



Announcing: 

The final graphics ''drawing program for ihc COCO 3! 



Da Vinci 3 



■ lt> colors on screen m one lime 

■ Modify each color from i*4 available colors 

■ Use composite or RGB monitor 

■ Draw wiih custom paintbrushes 

■ Full resolution $20 X 192 

■ Piciurc converter for conversion o( 

COCO 2 pictures (n COCO 3 

■ Multiple text lont.s 

■ Accepts input from joystick, X-patl, 

mouse, or touch -pad 

■ Uoxo. circles, line, paint pener.ilion 

■ Screen dump for Tandy mono and color ink-jel 

printers, ( NX- 10 and other* pending) 

■ Sensible price 

■ No additional hardware required because of 

coursc ( (ine jnyMick movement modes 

■ /Vi'in mode for individual pixel editing 

■ Great on screen menu which is removable at 

the touch nf a kev to allow full screen edit 



WBgSf&^^^^^^S^ 



% 



'WSt 



l28Kor5I2KCOC03 



$37.95 



Last Minute Specials! 
Master Artist 2 or 3 $25.95 

(One of the best Co Co 2 graphics programs) 
Pyramix (Qubert) List S25 $19.95 

Blackjack Royale (Blackjack) $12.95 

Crystal Revenge (Space Shoot-out) $12.95 




OS-9 

SUPER BOARD I/O 



3 or 5 Users 
on Your 
CoCo 



2 Serial Porta 
(up to 19.200 BAUD) 



Toll Free 
Order Line 

(800) 
245-6228 




M.C. & VISA Accepted 

OWL-WARE 

P.O. Box 116-D 
Mertztown. PA. 
19539 

PA H.s Includes Tin 
PA (215) 682-6855 
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Listing 2: 

'<K> 

5 ON BRK GOTO300 

x0 WIDTH40 

16 LOCATE 8 , 2 

20 ATTR 3,2,B 

30 PRINT" Tutorial For Kokonuts" 

40 'LOCATE 11, 5 
50 'ATTR4,7 

60 IF PEEK(343)=191 THEN GOT061 
ELSE 62 

61 L0CATE11,5:ATTR4,7:PRINT" BEL 
INDA RAMSEY" ; : GOTO200 

62 LOCATE 1 1, 5 :ATTR4, 7: PRINT" JO 
SEPH KOLAR" ; 

70 LOCATE8,8 

80 ATTR2,4 

90 PRINT" INVERNESS, FL. , 32650" 

95 LOCATE0,0 

199 IF PEEK(342)=191 THEN GOT061 
ELSE 200 

200 IF PEEK(342)=191 THEN GOT062 
ELSE 199 

300 WIDTH40:LIST 



Listing 4 


: 


10000 


'<K2> 


10010 


ON BRK GOTO 10 140 


10020 


WIDTH40 


10030 


LOCATE 8, 2 


10040 


ATTR 3,2,B 


10050 


PRINT" Tutorial For Kokonu 


ts"; 




10060 


LOCATE 8, 8 


10070 


ATTR2 , 4 


10080 


PRINT" INVERNESS, FL. , 326 


50"; 




10090 


LOCATE 11 , 5 : ATTR4 , 7 : PRINT" 


BELINDA RAMSEY" ; : GOTO 10130 


10100 


LOCATE11 , 5 : ATTR4 , 7 : PRINT" 


JOSEPH KOLAR" ; 


10110 


LOCATE0,0 


10120 


ATTR2,4:IF PEEK(342) =191 T 


HEN GOTO10090 ELSE 10130 


10130 


LOCATE0,0:ATTR2,4:IF PEEK( 


341) = 


L91 THEN GOTO10100 ELSE 101 


20 




10140 


WIDTH40:LIST 



Listing 3: 








a 


<K1> 








5 ON BRK GOTO300 








10 


WIDTH40 








16 


LOCATE 8 , 2 








20 


ATTR 3,2,B 








30 


PRINT" Tutorial 


For Kokonuts" 


60 


IF PEEK(343)=191 


THEN 


GOT061 


ELSE 62 








61 


L0CATE11,5:ATTR4 


,7:PRINT" 


BEL 


INDA RAMSEY" ; : GOTO 


200 






62 


L0CATE11,5:ATTR4 


,7:PRINT" 


JO 


SEPH KOLAR" ; 








70 


LOCATE8 , 8 








80 


ATTR2 , 4 








90 


PRINT" INVERNESS 


, FL. 


, 32650" 


95 


LOCATE0 , 








199 ATTR2,4:IF PEEK (342) 


=191 


THE 


N GOT061 ELSE 200 








200 LOCATE0,0:ATTR2 


,4: IF 


PEEK (34 


D = 


=191 THEN GOT062 


ELSE 


199 




300 WIDTH40:LIST 









Listing 5: 



10000 '<K3> 

10010 ON BRK GOTO 10 140 

10020 WIDTH40 

10060 LOCATE 8, 8 

10070 ATTR2,4 

10080 PRINT" INVERNESS, FL. , 326 

50"; 

10090 LOCATE8 , 2 : ATTR3 , 2 , B : PRINT" 

Tutorial For Belinda" ; rLOCATEl 
1,5:ATTR4,7:PRINT" BELINDA RAMS 
EY"; :GOTO10130 
10100 LOCATE8 , 2 : ATTR3 , 2 , B : PRINT" 

Tutorial For Joseph ";:LOCATEl 
1,5:ATTR4,7:PRINT" JOSEPH KOLA 
R"; 

10110 LOCATE0,0 

10120 ATTR2,4:IF PEEK(342) =191 T 
HEN GOTO10090 ELSE 10130 
10130 LOCATE0,0:ATTR2,4:IF PEEK ( 
341) =191 THEN GOTO10100 ELSE 101 
20 
10140 WIDTH40:LIST 
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Listing 6: 

10000 '<K3A> 

IjSplp ON BRK GOTO 10 140 

10020 WIDTH40 

10060 LOCATE8,8 

10070 ATTR2,4 

10080 PRINT" INVERNESS, FL. , 326 

50"; 

10090 LOCATE8 , 2 : ATTR3 , 2 , B: PRINT" 

Tutorial For Belinda" ; :LOCATEl 
1,5:ATTR4,7:PRINT" BELINDA RAMS 
EY";:GOTO10130 
10100 LOCATE8 , 2 : ATTR3 , 2 , B : PRINT" 

Tutorial For Joseph ";:LOCATEl 
1,5:ATTR4 / 7:PRINT" JOSEPH KOLA 
R"; 

10120 LOCATE0,0:ATTR2,4:IF PEEK( 
342) =191 THEN GOTO10090 ELSE 101 
30 

10130 LOCATE0,0:ATTR2,4:IF PEEK( 
341) =191 THEN GOTO10100 ELSE 101 
20 
10140 WIDTH40:LIST 



RNANDO, FL. , 32642 " ; : GOTO 10130 
10100 LOCATE8 , 2 : ATTR3 , 2 , B: PRINT" 
Tutorial For Joseph " ;:LOCATEl 
1,5:ATTR4,7:PRINT" JOSEPH KOLA 
R"; :LOCATE8, 8 : ATTR2 , 4 : PRINT" INV 
ERNESS, FL. , 32 650"; 
10120 LOCATE0,0:ATTR2,4:IF PEEK( 
342) =191 THEN GOTO10090 ELSE 101 
30 

10130 LOCATE0,0:ATTR2,4:IF PEEK( 
341) =191 THEN GOTO10100 ELSE 101 
20 
10140 LIST 



Listing 7 






10000 


'<K4> 




10010 


ON BRK GOTO 10 140 




10020 


WIDTH40 




10090 


LOCATE8 , 2 : ATTR3 , 2 


,B: PRINT" 


Tutorial For Belinda" 


; :LOCATEl 


1,5:ATTR4,7:PRINT" BELINDA RAMS 


EY" ; : LOCATE 8 , 8 : ATTR2 , 4 : 


PRINT" HE 



Listing 8: 

'<K4A> 

10 ON BRK GOTO70 

20 WIDTH40 

30 LOCATE8,2:ATTR3,2,B:PRINT" T 

utorial For Belinda" ;: LOCATE11, 5 

:ATTR4,7:PRINT" BELINDA RAMSEY" 

; : LOCATE 8 , 8 : ATTR2 , 4 : PRINT" HERNA 

NDO, FL. , 32642 ";:GOTO60 

40 LOCATE8,2:ATTR3,2,B:PRINT" T 

utorial For Joseph " ; :LOCATEll,5 

: ATTR4 , 7 : PRINT" JOSEPH KOLAR" ; 

: LOCATE8 , 8 : ATTR2 , 4 : PRINT" INVERN 

ESS, FL. , 32650"; 

50 LOCATE0,0:ATTR2,4:IF PEEK (3 42 

)=191 THEN GOTO30 ELSE 60 

60 LOCATE0,0:ATTR2,4:IF PEEK (3 41 

)=191 THEN GOTO40 ELSE 50 

70 LIST 



PRINTERS! 

N EW! Okidata 192+ (Par. or Ser.) s 370 

nE w! Okidata 1 93 (Parallel) s 540 

NE W! Okidata 193+ (Serial) *6I0 

Okimale 20 Color Printer s 1 35 

Fujitsu 2 1 00 (80 col.) s 4 1 

Fujitsu 2200 (1 32 col.) S S20 

Toshiba 321 (Par.orSer.) S 5I0 

Qume Letterpro 20 (Letter Qual.) s 445 

Silver Reed 420 (Daisy Wheel) $ 240 

Silver Reed 600 (Daisy Wheel) $ S7S 

(Add $ I0 Shipping for Printers) 



ACCESSORIES! 

Taxan 1 2" Green Monitor * 1 25 

Taxan 12" Amber Monitor * 1 3S 

Table Top Printer Stand 

w/Slot (80 col.) s 30 

Table Top Printer Stand 

w/Slot(l32col.) s 45 

Stand w/ Diskette Storage (80 col.) s 47 

Stand w/Diskette Storage (132 col.) $ 57 

Other Printers. Monitors, and Accessories for CoCo 

and IBM upon rcquesc. 

*15 off Interface with purchase of printer. 

Find your cheapest published price and we'll beat it!!! 



DISK DRIVE SYSTEMS! 

ALL '/: HEIGHT DOUBLE SIDED 

Drive (addressed as 2 drives!) $ 235 

Drive 0.1 (addressed as 4 drives!) '350 

All above complete with HDS controller, 
cable, & drive in case with power supply 

Bare Double Sided Drives S I09 

Dual '/) Height Case w/Power Supply '49 

Double Sided Adapter ! 25 

HDS Controller, RS ROM & Instructions ! 99 

25 CDC DS/DD Diskettes '32 & l 3 s/h 

We use the HDS controller exclusively. Can use 2 different DOS ROM's. 

Shipping Costs: '5 /drive or power supply, '10 max. 

Co Co Serial Cables 15 ft.-'IO. Co Co/RS-232 Cables 15 ft-»20. 

Other cables on request. (Add '3 00 shipping) 



SP-2 INTERFACE for 
EPSON PRINTERS: 

■ 300-19,200 BAUD rates 

■ Fits inside printer — No AC Plugs 

■ Optional external switch ('5 M extra) frees parallel 
port for use with other computers 

■ ! 49' s (plus S3°° shipping) 



SP-3 INTERFACE for 
MOST OTHER PRINTERS: 

■ 300-19.200 BAUD rates 

■ External to printer — No AC Plugs 

■ Built in modem 'printer switch— no need for Y-cables or 
plugging/unplugging cables 

■ s 64" (plus '3™ shipping) 



Both also available for IBM. RS-232 and Apple IIC computers. 



P.O. Box 293 
Raritan, NJ 08869 
(201)722-1055 

ENGINEERING 
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Listing 9: 






' 


<K4B> 






10 


ON BRK GOTO 10 






20 


WIDTH40 






30 


LOCATE8 , 2 






31 


ATTR3 , 2 , B 






32 


PRINT" Tutorial 


For Belinda" 


33 


LOCATE 11, 5 






34 


ATTR4 , 7 






35 


PRINT" BELINDA RAMSEY 


ii . 


36 


LOCATE 8 , 8 






37 


ATTR2 , 4 






38 

|| m 


PRINT" HERNANDO, 


FL., 


32642 


r 

39 


GOTO60 






40 


LOCATE8 , 2 






41 


ATTR3 , 2 , B 






42 


PRINT" Tutorial 


For Joseph " 


43 


LOCATE 11, 5 






44 


ATTR4 , 7 






45 


PRINT" JOSEPH 


KOLAR' 


i 


46 


LOCATE 8 , 8 






47 


ATTR2 , 4 






48 


PRINT" INVERNESS 


, FL., 


32650" 


1 

50 


LOCATE0 , : 






51 


ATTR2 , 4 






52 


IF PEEK(342)=191 


THEN 


30 ELSE 


60 






60 


LOCATE0 , 






61 


ATTR2 , 4 






62 


IF PEEK(341)=191 


THEN 


40 ELSE 


50 






7j3 


LIST 







Listing 10: 

'<K5> 

10 ON BRK GOTO70 

20 WIDTH32 

29 CLS3 

30 PRINT@37,""; 

32 PRINT" Tutorial For Belinda"; 
3 3 PRINT@104,"" ; 

35 PRINT" BELINDA RAMSEY"; 

36 PRINT@165,""; 

38 PRINT" HERNANDO, FL, 3 2 642 "; 

39 GOTO 60 

40 CLS4:PRINT@37,""; 

42 PRINT" Tutorial For Joseph "; 

43 PRINT@104, ""; 

45 PRINT" JOSEPH KOLAR "; 

46 PRINT§165,""; 

48 PRINT" INVERNESS, FL, 32650"; 
50 "LOCATE0,0 



52 


IF PEEK(342)= 


=191 


THEN 


29 


ELSE 


60 












60 


' LOCATE0 , 










62 


IF PEEK(341) = 


=191 


THEN 


40 


ELSE 


52 












70 


LIST 











Listing 11: 









<K6> 






10 


ON BRK GOTO 70 




20 


WIDTH32 






29 


CLS3 






32 


PRINT@37," Tutorial 


For Bel in 


da' 


i • 






35 


PRINT@104 / " 


BELINDA 


RAMSEY"; 


38 


PRINT@165," 


HERNANDO, FL, 326 


42 


ii . 

• 






39 


GOT062 






40 


CLS4 






42 


PRINT@37," Tutorial 


For Josep 


h 


i • 






45 


PRINT0104," 


JOSEPH 


KOLAR "; 


48 


PRINT@165," 


INVERNESS, FL, 3 2 


650"; 






52 


IF PEEK(342) 


=191 THEN :::: 


62 






62 


IF PEEK(341) 


=191 THEN 40 ELSE 


52 






70 


LIST 







Listing 12: 

'<K7> 

10 ' 

20 ' 

29 CLS3 

3 2 PRINT@37, 

da "; 

35 PRINT@104 

38 PRINT@165 

642 "; 

3 9 GOTO50 
40 CLS4 

42 PRINT@37, 
h "; 

4 5 PRINT§104 
48 PRINT§164 
2 650 "; 

50 A$=INKEY$ 

51 IF A$=" A " 

53 IF A$="_" 

54 IF A$="§" 
70 LIST 



" Tutorial For Belin 



, " BELINDA RAMSEY "; 
, » HERNANDO, FL. , 3 2 



" Tutorial For Josep 

, " JOSEPH KOLAR "; 
, " INVERNESS, FL. , 3 



GOT029 

GOTO40' <SHIFT> < A > 

GOTO 70 ELSE 50 
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The Best Money Can Buy . . . 
HDS Floppy Drive Controller Board 







Reduce vour I/O errors with the Hard Drive Specialist 
Floppy Drivlcontrolier tor the Color Computer mc edge 
card connectors, advanced design, and the ^ absence 
potentiometers make it the best avaHable^ur newed ^ve 
sion controller allows the use of ^f^SffbSS 

patibility with all Radio Shack software. 
Completed and Tested Board 

with Radio Shack ROM • • • ■ * 

(includes Case, and DOS Instructions) 

Completed and Tested Board without ROM . . . $79. 

(Includes Case) „ amia i $30. 

Bare Board with Instruction manual L . g« 

Parts Kit For Bare Board without ROM $30. 

Radio Shack ROM (current version) »<«J- 

Radio Shack ROM 1.0 



gov.rnm.m ag»nc«t. Mos im * ,e J™ u °2 Too. s.anda.c. moan, o. sh.pp.ng 

:^rru^& ~ « *— UPon ,*<,- 



Drive Complete $ 199 - 

Drive 1 Complete $ 129 - 

Drive & 1 Dual Drive $319- 



HARD DRIVE SPECIALIST 



1-713-480-6000 
Order Line 1-800-231-6671 
16208 Hickory Knoll 
Houston, Texas 77059 



^Education Not e s 



16K ECB 



i-^i 




Learning in the 
End Zone 



By Sieve Blyn 
Rainbow Contributing Editor 



Fear not, sports fans! As the base- 
ball season draws to a close, the 
football season is gearing up. For 
our junior sports fans, we are presenting 
a learning tool in the form of a football 
game. Blitz Quiz is given here as a quiz 
testing knowledge of the Color 
Computer, but it is really a quiz format 
that can be used in almost all school 
subject areas. 

Blitz Quiz is an entertaining way for 
students to review information to be 
learned, memorized or reviewed. We 
have used this program with greatly 
varied data for students of all ages. 

Computers are wonderfully conven- 
ient tools that can easily catch the 
interest of children through theirsenses. 
The more methods we have to present 
material, the more likely it is to be 
absorbed. 1 have long felt that new 
computer approaches in presenting 
familiar material often provide the 
spark that piques a reluctant student's 
interest to finally learn a topic. 

We have included 20 questions in a 
short computer terms quiz. You may 
increase the number of questions by 
adding more data pairs in extra DATA 
lines. You must also be certain to adjust 



Sieve Blyn leaches both exceptional 
and gifted children, holds two master's 
degrees and has won awards for the 
design of programs to aid the handi- 
capped. He owns Computer Island and 
lives in Stolen Island. New York. 



that amount in Line 30. which contains 
the variable Z telling the computer how 
many DATA groups there are. 

"Computer terms" is merely one of 
many topics that you may use. Foreign 
language words or phrases, math flash- 
card facts or social studies facts are a 
few other areas this program can be 
used for. In fact, most school subjects 
have facts to be memorized or reviewed, 
and they can be applied to this program. 

The game shows the outline of a 
football field similar to the one below. 
It is drawn by lines 100 to 210. 

The football is represented by an 
asterisk, and is initially placed at the 50 
yard line by Line 220. CoCo asks a 
question, and the student enters an 
answer. If the student answers correctly, 
the ball moves toward the goal line. If 
the student is incorrect, the ball moves 
a loss of 10 yards in the opposite direc- 
tion. The game is over when the ball 
reaches either the goal or the other end 
of the field. 

The variable A represents the current 



position of the football. AS[R) repres- 
ents the question. B$(R) is the correct 
answer. AN$ is the student's answer. The 
program compares the student's answer 
with the correct answer in lines 300 and 
310. The football repositions and the 
user is informed of a correct answer. If 
a wrong answer is given, the correct 
answer will be shown. 

Lines 380 through 390 check to see if 
the ball has reached either end of the 
field, ending the game. After each game, 
the user may press either the G key to 
play again or the E key to end the 
program. 

We hope you find many uses for Blitz 
Quiz. It is a good idea to save the 
program before you want to change the 
contents. Then you merely replace old 
data with your new data to have a new 
program. You may repeat this proce- 
dure as often as there is new informa- 
tion to be learned. We at Computer 
Island hope your children have fun and 
learn, too, while scoring touch- 
downs. D 
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The listing: CCBLITZ 

lp REM" EDUCATIONAL FOOTBALL QUIZ 
ii 

20 REM"STEVE BLYN, COMPUTER ISLAN 

D SOFTWARE, ST ATEN ISLAND, NY, 1987 

30 Z=20 

40 DIM A$(Z) ,B$(Z) 

50 FOR Y=l TO Z:READ A$(Y),B$(Y) 

:NEXT Y 

60 A=303:R=RND(-TIMER) 

70 CLS0 

80 PRINT@0 , STRING$ (32,239) } 

90 PRINTS 8," FOOTBALL QUIZ"; 

100 REM SET UP THE FOOTBALL FIEL 

S 

110 FOR T=1216 TO 1408 STEP 32 :P 

OKE T, 159: NEXT T 

120 FOR T=1246 TO 1438 STEP 32 :P 

OKE T, 159: NEXT T 

130 FOR T=1216 TO 1246 -.POKE T,14 

7: NEXT T 

140 FOR T=1408 TO 1438: POKE T,15 

6. -NEXT T 

150 FOR T=1251 TO 1277 STEP 3 : PO 

KE T, 149: NEXT T 

160 FOR T=1283 TO 1308 STEP 3 : PO 

KE T, 149: NEXT T 

170 FOR T=1315 TO 1340 STEP 3 : PO 

KE T, 149: NEXT T 

180 FOR T=1347 TO 1372 STEP 3 : PO 

KE T, 14 9: NEXT T 

190 FOR T=1379 TO 1404 STEP 3 : PO 

KE T, 14 9: NEXT T 

200 FOR T=1279 TO 1407 STEP 32 :P 

OKE T, 207: NEXT T 

210 PRINT@160," 10 20 30 40 50 

40 30 20 10" 
220 PRINTS A," *•" ; 
230 PRINT@64,"":PRINT@96,"" 

2 40 REM ASK A QUESTION 

250 PRINT@64,"":PRINT@9 6,"" 

260 R= RND(Z) 

270 PRINT@64,A$(R) 

280 PRINTS 9 6,"? " ; 

290 LINE INPUT AN$ 

300 IF AN$=B$(R) THEN PLAY"L100C 

EGG" : A=A+3 : PRINT@428 , "CORRECT" } 

310 IF AN$<>B$(R) THEN PLAY "L10 

C":A=A-3:PRINT@428,B$(R) ; 

320 EN$=INKEY$ 

3 30 IF EN$=CHR$(13) THEN 3 40 ELS 
E 320 

340 PRINT@416,STRING$(32,128) ; 

3 50 FOR T=1315 TO 13 40 STEP 3 : PO 

KE T, 14 9: NEXT T 

3 60 PRINTS A, "*"; 

370 REM CHECK FOR END OF GAME 

380 IF A=288 THEN PRINTS456 , "SOR 

RY,GAME OVER"; 

390 IF A=318 THEN PRINTS425 , "TOU 

CHDOWN !!!";: PLAY"L150CEGGFEDCCC 

ii 

400 IF A=2 8 8 OR A=318 THEN 410 E 



LSE 2 40 

410 PRINTS489, "PRESS g OR e " ; 

4 20 EN$=INKEY$ 

430 IF EN$="G" THEN RUN ELSE IF 

EN$="E" THEN END ELSE 420 

4 40 DATA ALLOWS INSERTIONS OF CO 

MMENTS,REM,PUT BACK ALL OF TTHE 

READ DATA, RESTORE, EXECUTES A PRO 

GRAM , RUN , TURNS ON THE PROGRAM TR 

ACER,TRON 

4 50 DATA LOADS A MACHINE LANGUAG 

E TAPE, CLOADM, CLEARS THE SCREEN, 

CLS, TRANSFER CONTROL TO M/L PROG 

RAM, EXEC 

4 60 DATA PRINT THE AMOUNT OF FRE 

E MEMORY, PRINTMEM, TELL CONTENTS 

OF MEMORY LOCATION , PEEK, INPUT DA 

TA FROM A CASSETTE, INPUT#-1 

470 DATA CALLS A SUBROUTINE , GOSU 

B, JUMPS TO A LINE NUMBER , GOTO , AS 

SIGNS VALUE TO A VARIABLE, LET 

4 80 DATA LISTS PROGRAM TO A PRIN 

TER,LLIST, TURNS CASSETTE ON,MOTO 

RON, ERASES EVERYTHING IN MEMORY, 

NEW, RESERVES GRAPHIC PAGES , PCLEA 

R 

4 90 DATA PUTS VALUES INTO LOCATI 

ONS, POKE, SELECTS DEGREE OF RESOL 

UTION,PMODE, PRINTS ITEMS ON A PR 

INTER,PRINT#-2 /^ 



THE SOFTWARE HOUSE 

ft DIVISION OF DATAHATCH. INC. 



PROGRAMMERS 
D ISKS 



WOW • 



5- S>5 



1 t& FOR * 

50 FOR *2S- 95 

1.012* FOR H»-*l-«5>- 95 

M/SLEEVES, LABELS, M.P. TABS 

MADE IN USA! CERTIFIED ERROR FREE. 

5 YEAR WARRANTY 

-IPPY DISKS 10/*8.95 

FACTORY PUNCHED - USE BOTH SIDES 

PRINTER RIBBONS 



EPSON MX/RX/FX 70/80 


S5.00 Ea 


6/$28.00 


RED, GREEN, BROWN, BLUE 


S6.00 Ea 


4/$22.00 


GEMINI 10/10X/SG10 


S2.00 Ea 


0OZ/S22.00 


GEM/OKI COLORS 


$3.00 Ea. 


4/$ 10,00 


OKI DATA 80/82/92/93 


$2.00 Ea. 


DOZ/$22.00 


C.ITOH.NEC 8023, APPLE 






DMP/IMAGEWRITER 


$6.00 Ea. 


6/S34.00 


RED, GREEN, BROWN, BLUE 


$6.50 Ea 


4/S2S.00 


ALL ITEMS 100% GUARANTEED 





Add S2.50 S/H in U.S.A. ■ Canada Add $3.50 + S 1.00/LB 
Michigan Residents Add 4% Sales Tax 
Send Check/Money Order Payable to: 
THE SOFTWARE HOUSE 

9020 HEMINGWAY, REDFORD, Ml 48239 

(313) 937-3442 

Send Card Number & Exp. Dale Min. Charae Order $20.' 
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In conjunction with the rainbow's Scoreboard, which appears 
bimonthly, we offer this column of pointers for our game-playing 
readers' benefit. If you have some interesting hints, tips or responses 
to questions, or want help yourself, we encourage you to write to the 
Scoreboard, c/o the rainbow. t 



FEEDBACK 

In response to letters from: 

• Howard Larsen: To get past the ana- 
conda in Dallas Quest, try typing T I CKLE 
ANACONDA and see what happens. 

Michael Jones 
Mobile, AL 

• John Tiffany: In Polynesian Adven- 
ture, to gel the hot knife, go to the lagoon 
and fill the gas can by typing FILL CAN. 
Then go to the room with the hot knife 
and type POUR CAN. 

In Search for the Ruby Chalice, to stop 
the wildcat, get the gun from your base 
camp. When it leaps at you, type SHOOT 
GUN. 

In Dr. Avaloe, to get out of the first 
room, type LOOK HOLE. After its re- 
sponse, type DOWN HOLE. 

Fred Relss 
McAlesier. OK 

• Thomas Payton: If you are talking 
about the locked room where you first 
find the 5-Bota token in Robot Odessey, 
grab the key with the top-most part of the 
cursor, unlock the door, drop the key and 
ride inside the robot, rewiring as you go 
along. 

If you are talking about after the coin 
falls through the slot, this is how to do 
it. When the turnstile starts moving, get 
through as fast as possible. When you 
need the token again, start the robot with 
the wallcrawler chip hooked up inside it 
at the upper-right corner with the 
grabber connected. Grab whatever it 
touches, and gel to the lower left-hand 
corner. The exit ticket is at the laundro- 
bol station. 

How do I get through the Master 
Control Center of Robot Odessey /? I've 
pressed the first button, but I can't get 
any farther. 

Alex Beckers 
Middletown, Rl 

• Erik Yoder: To fill the pool in Hall of 
the King, you need the bucket. First you 
must repair the bucket and go to the 
kitchen to fill it. 

D. Harold Kruse 
Peoria, II. 



• Dianne Piper: To get on the train to 
Paris in the Interbank Incident, you have 
to get a ticket. After you get a ticket, 
point the arrow at the foot and then at 
f (forward). 

How do you get to the ghost town? 

James Carr 
Twin Falls. ID 

• Neil Johnson: In Pyramid, you don't 
have to change the batteries. Just buy 
them and the computer will change them 
when it wants to. 

How do you find the mummy's chest 

in the maze, and do you use the scepter? 

Chad Glover 

Absecon, NJ 

• Joseph Delancy: To get the powerful 
Kulcad spell in Enchanter, go out 
through the south gate and go to the 
beach. Use the Nilefall spell on the turtle 
and ask him to follow you. Then go to 
the engine room in the tower. Cast the 
EXEX spell on the turtle and type TUR- 
TLE. Go southeast and get the scroll. Go 
northwest and the obedient rainbow- 
hued turtle will retrieve the scroll for you. 

Is it possible to get the adventurer to 
help you? 

Barret Keller 
Kerrville. TX 



• Troy Phelps: In Dallas Quest, to get 
the shovel you must first give the sun- 
glasses to the owl. The owl will come to 
you and you should then go into the barn 
and the owl will eat the rat. 

• Domenick Doran: In Dallas Quest, to 
get past the cannibals by the cave, you 
have to type WAVE RING.' 

• Jell Hurteau: In Dallas Quest, to get 
all the inventory down the ladder, you 
must take one item down at a time (lake 
the flashlight first) and find the direction 
for the village. Then take one item down 
at a time and drop it. Repeat these steps 
until the rest of the items are downstairs. 
Remember to turn the flashlight off when 
you're done! 

Roger Rosebrock 
Leipsic. OH 



• Jeff Stewart: In Wrestle Maniac, when 
your opponent is on the mat, stand your 
man over him, hold down the button and 
pull the joystick back. 

In Sands of Egypt, type HELP for each 
object you find. 

What docs the shovel remind you of? 
In One-On-One, how do you get 3- 
pointers and how do vou do a backwards 
slam? 

Eric Reitz 
Mendham, NJ 

• Rick Moore: To get past the dog in 
Bedlam, first you have to get the blue pill 
in the dispensary. Next, open the refrig- 
erator and get the hamburger meat that 
falls on the floor. Put the blue pill in the 
meal and feed it to the dog. 

How do you get the green key? 

Thomas Overmyer 
Round Lake Beach. IL 



Scoreboard: 

In Dungeons of Daggorath. to kill the 
blobs, you must hit them with your sword 
quite a few times, or use an ice ring. 

In Dallas Quest, to gel past the ana- 
conda, you must tickle him. Also, when 
you get to the crossroads, grab the 
coconuts and go to the screen with the 
bird's nest. To stop the boat from leaking, 
give some tobacco to the monkey. 

In Trekboer, you must refill the beaker 
with acid and pour the acid on the grate. 

In Calixto Island, you must take the 
pottery to the professor's study. Make 
sure you take the tire pump with you 
when you go to the island. Also, to get 
past the jungle edge, you must cut the 
foliage with the machette that you trade 
either the rug or the chest for. 

To bend the bars in Hall of the King 
I, you must get the key piece. You will 
find the key piece in a room hidden 
behind the fermented grain. You must 
burn the grain, then go into the room. In 
the room there is a pedesta/ surrounded 
by beams of light. Reflect the light off of 
the mirror and take it from there. You 
will need the vile of acid. 

In Black Sanctum, to get past the 
cabin, you must walk through the mirror. 
Make sure you have the robe first. 



••••••••••••••••••••••••••**********^ 



96 



THE RAINBOW October 1987 



^^•••••••^^•••••••••••-^^••••••••••••^ 



In Sea Quest, how do you buy the 
diving equipmeni and how do you get 
past the pirate? 

Jared Brookes 
Alberta, Canada 



Scoreboard: 

To gel through the bronze doors in 
Dragon's Blade, go to the grave and dig 
lo get the key. 

To use the scroll, you must go into the 
room with the gargoyle and type SAY 
KftSSflMflY. 

How do you get past the tunnel? 

Richard Deane 
Chicago, IL 

Scoreboard: 

How do you get past the green fierce 
monster in Pyramid 20001 

Marc Hodgson 
Georgetown, Ontario 

Scoreboard: 

How do you get past the serpent in 
Pyramid 2000"! 

Brian Ferro 
Burke, VA 

Scoreboard: 

In Dallas Quest, when I get to the 
tunnel under the trap door at the trading 
post, it says to turn on the flashlight. 
Where do 1 get the flashlight? 

In Hall of the King III, what must I do 
to get past the snake in the hole on the 
river bank? 

Robert Taylor 
Yuma, AZ 

Scoreboard: 

In Dallas Quest, ask the parrot; he'll 
tell you a way to avoid being eaten by the 
anaconda; try the shovel as an oar; bribe 
the monkey and the boat won't sink; at 
the crossroads, go to mama vulture and 
get her eggs. 

In Sands of Egypt, you'll have to dig 
for the magnifier and torch. To leave the 
underground passage, get underneath the 
exit and untie the rope, drop and climb 
the ladder. Ride only once from the pool 
and you will end up at the pyramid. To 
empty the pool, type HOOK SCEPTER TD 
HANDLE and PULL SCEPTER. 

Beware: If you use the canteen in any 
way, except for drinking, you will auto- 
matically drop it! 

Duane Whitlock 
North East, MD 

Scoreboard: 

Anytime you want to restart play in 
Wrestle Maniac, press the R key. If you 
want to have a demonstration of the 



game running, press the D key at the 
single players or teams prompt. 

David Kauffman 
South Haven, MI 

Scoreboard: 

In Sands of Egypt, I have the drain 
open, but I cannot find the torch to enter 
the hole. 

John Barsh 
Strykersville, NY 

Scoreboard: 

In Sands of Egypt, where are the dates 
and the pool? 

Jason Jasmin 
Margate, FL 

Scoreboard: 

In Raaku-Tu, how do you get across 
the rug to the carved door on the other 
side? 

In Dungeons of Daggorath, how do 
you kill the wizard's image? 

Fallon Yager 
Bellevue, ID 

Scoreboard: 

What do I do after you have the golden 
chopstick in Raaku-Tu'! How can I open 
the wooden door that says "do not 
enter"? What use is the secret tunnel? 

In Dungeons of Daggorath, what is the 
use of the Abye flask? When is the best 
time to use the Hale flask? 

In Pyramid, how can I keep the 
mummy from taking my treasures? How 
do you open the sarcophagus? After 
chasing the serpent away, is there any 
other use for the statue? 

Steven Kascbimer 
Tucson, AZ 

Scoreboard: 

In Trekboer, roman numerals will lead 
you to an unusual planet, but I cannot 
find the amulet that helps you get across 
the bridge. 

In Major Istar, I have found the dome 
and have landed safely, but how do you 
beat the security guard droids? 

Rick Helton 
Newport News, VA 

Scoreboard: 

In Rogue, when battling a lot of mon- 
sters in a room, stand in a doorway. 
Doing this will allow only one monster 
to attack you at a time. 

To keep your man alive, after you save 
a game, cover the write protect notch on 
the disk. This way, when your man dies 
it won't erase your saved game. This also 
prevents your man from being perma- 
nently entered into the hall of fame. 

Wands and staves may ricochet. Zap- 
ping creatures diagonally may be less 



convenient, but is safer. Polymorphing 
magic is dangerous at beginning levels 
because the chances are greater that you 
will change a monster into something 
more powerful. 

Around the fifth or sixth level. Aqua- 
dors start appearing. If you see one, 
remove your armor. These creatures do 
no physical damage; they just rust your 
armor. If you save all your enchant armor 
scrolls, use them on the first leather 
armor you find — leather can't rust. 

Where are the dates in Sands of Egypt! 
Brent Dingle 
Norwalk, IA 

Scoreboard: 

You can shoot the wildcat with the rifle 
in Ruby Chalice. Typing DOWN HOLE in 
the first room of Dr. A valoe will send you 
to the monster room. 

How do you move the slab in Ruby 
Chalicel How do you gel out of the dark 
in Hitchhikers Guide to the Galaxy, and 
how do you cross the rug in Raaku-Tu'! 

Chris Casey 
Vernon, Ml 
Scoreboard: 

In the Interbank Incident, if you want 
to get on (he train at Paris just past the 
Louvre, simply type GO and point to the 
door of the train. To get on the next train 
lo Germany, you need the orange Euro- 
pean train pass. It can be found anywhere 
in Paris. Remember lo search the flower 
pots. 

The locker al the Seattle terminal will 
open as soon as you put in the quarter. 
Now search the locker. If nothing 
happens after your search, the locker is 
empty. If something is in the locker, you 
should see the message, "Look, you 
found something!" 

The rope is used later lo lie someone 
up and the pass is used to ride ihe irain 
or ferry boat in Seattle. 

Randy Cassel 
Middletown. I' A 

To respond to other readers' inquiries 
and requests for assistance, reply to 
"Scoreboard Pointers," c/o THE RAIN- 
BOW, P.O. Box 385, Prospect, KY 40059. 
We will immediately forward your letter to 
the original respondent and, just as impor- 
tantly, we'll share your reply with all 
"Scoreboard" readers in an upcoming 
issue. 

For greater convenience, "Scoreboard 
Pointers" and requests for assistance may 
also be sent to us through the MAIL 
section of our Delphi CoCo SIG. Prom the 
CoCo S1G> prompt, pick MAIL, then 
type SEND and address to: EDITORS. Be 
sure to include your complete name and 
address. 

— Jody Doyle 
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I Mo d if i c ation 



32K ECB 



CoCoDraw Update 



By John G. Williams 



Congratulations to Darin Herr 
for the fine work he did on the 
CoCoDraw program ("CoCo- 
Draw Concoctions," Page 58) published 
in the October 1986 issue. It is a very 
well-written program with excellent 
documentation. In fact, it would not 
have been possible for me to modify the 
program without the line descriptions 
he provided. The only part of the pro- 
gram that gave me any trouble was the 
switching back and forth from joystick 
to arrow keys for precise pointer posi- 
tioning. I just could not seem to master 
that procedure with any speed or accu- 
racy at all. 

One way around the pointer position- 
ing problem is to use the joystick com- 
mand as "change of position" command 
rather than position command itself. 
That is, the joystick position tells the 
pointer how many pixels to move dur- 
ing each blinking cycle of the pointer. 
Both vertical and horizontal position- 
ing of the pointer can be controlled in 
this manner. A stick movement of one 
unit could result in a pointer movement 
of one pixel and so on. 

The problem with this simple rela- 
tionship is that the extreme sensitivity 
the pointer exhibits is no improvement 
at all over the original method. What is 
needed here is a non-linear stick com- 
mand so that near-center movement of 
the stick results in very slow pointer 
movement, yet rapid pointer motion 

John Williams is an aircraft industry 
structural engineer. He lives in Azle, 
Texas, and enjoys his Co Co very much. 
His son, a Texas A&M engineering 
major, is also a CoCofan. 



can be obtained when needed. 

This method may be familiar to some, 
as it was the subject of a short article 
in the August 1985 issue ("The Joystick 
Fix It," Page 226). In that article I 
demonstrate how the stick command 
could be tailored to any requirement 
with a non-linear equation. Such an 
equation could be solved repeatedly for 
new pointer location and would suit our 
CoCoDraw problem exactly. However, 
we already know about that method, so 
why not learn yet another way to use 
stick commands for our purposes? 

Since thejoystick has only 64 possible 
positions in each axis, an equation 
relating stick command to pointer 
motion could have only 64 answers for 
each axis. Rather than solving the 
equation over and over for only 64 
possible pointer motion commands, 
why not solve the equation once for 
each stick position and save the results 
in a table? We can then look up these 
results in the table and move the pointer 
as slowly or quickly as desired. In fact, 
this procedure is known as the "table- 
look-up" method and is much faster 
than having to solve the non-linear 
equation repeatedly. 

The table is a one-dimensional array 
of values I call DP( J), where J is the 
subscript of DP and ranges from zero to 
63, which is of course the range of our 
joystick command. If you need to re- 
view arrays and subscripts, see your 
BASIC manual for more information. 

The name DP stands for "delta point- 
er," since the Greek letter delta is 
frequently used to represent change in 
a variable. 

To generate the table of stick com- 



mands, insert Line 1 1 into the CoCo- 
Draw program: 



11 DIM DP(G3) :FORJ=0T0G3:N= 
-31:DP( J)=INT( .S+(flBS(N)» 
N/S0):NEXT 

This line provides space for the array 
with DIM DP (63), calculates all 64 
values of DP(J) and stores them in the 
array. Of course other equations could 
be derived which would do just as well. 
For example, the sensitivity of the 
pointer can be adjusted by changing the 
divisor. Larger values such as 70 or 80 
give slower movement, while smaller 
values give faster movement. 

If you are interested, it would be easy 
to list out the values of DP (J), just to 
see what the array looks like. Another 
possibility is to put the values of DP ( J ) 
in DHTR statements and use a READ 
statement to store the values. 

The lines in the original program that 
read joystick and arrow key commands 
are 9400 through 9540. Those lines must 
be deleted and the following new lines 
must be added which read the stick and 
calculate the new pointer position. 

9400 X=X+DP(JOYSTK(0) ):Y=Y+ 

DP ( JOYSTK ( 1 ) ) : FB=PEEI< ( & 

HFF00)DR&H80 
9410 IFX<0THENX=0ELSEIFX>255 

THENX=255 
9420 IFY<0THENY=0ELSEIFY>191 

THENY=191EL5ERETURN 

The new position (X or Y) is the old 
position plus the delta position (DP) 
commanded by the joystick. Note the 
joystick command is the subscript of the 
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array DP. In this manner the stick 
position is directly related to the pre- 
viously calculated table of DP(J) 
values, and the stick merely tells which 
value of DP to add to the old pointer 
position. 

The range checks in lines 9410 and 
9420 are added to prevent crashes 
resulting from trying to plot off the 
screen. 

Two other minor changes are neces- 
sary to make the pointer behave prop- 
erly with these new commands. The 
following statement must be inserted in 
Line 6280 just before the GOTO 6280 at 
the end of the line: 

X=XX:Y=YY: 

Line 5630 must be modified by insert- 
ing the following statement between 
ELSE and 5G00 near the end of the line: 

X=XX:Y=YY:GDTO 

These modifications result in better 
control of the pointer. It is now very 
easy to move one pixel at a time for 
precise control, yet it can be moved 
rapidly when you want to get to a 
distant part of the screen. The motion 
is different since the pointer does not 



follow the position of the stick but 
moves in the direction the stick points, 
at a velocity related to stick displace- 
ment. After just a few minutes of prac- 
tice, it feels natural. 

One other difference in the program 
now is how the Ray function works. To 
use Ray, move the pointer to the center 
point as before and click the button (do 
not hold it down). Move the ray to 
where you want it and click again. So 
far, no difference; but now if you want 
another ray, click the button again and 
move the new ray to the desired point. 
Repeat as desired. When you don't want 
another ray from that origin, just hold 
the button down until it beeps and 
continue with another set of rays or 
select another option. 

I hope you find this modification 
useful. It has made an already fine 
program just a little easier to use. 
CoCo Draw now has the ability to easily 
put the pointer on any pixel without an 
expensive analog-to-digital converter 
like CoCo Max uses. I have tried it with 
both the standard and deluxe joysticks, 
but not with a mouse. The deluxe stick 
is much better because of self-centering, 
and I would encourage everyone to use 
one if possible. With the standard stick 



you will probably want to slow the 
motion down as described earlier. 

Keep in mind that there are ways to 
use joysticks other than what is shown 
in the manuals, and that this array/ 
subscript procedure has other applica- 
tions limited only by your imagination. 
Our CoCo is a marvelous machine and 
is capable of doing far more than most 
of us ever ask it to do, as are our own 
brains. 

Again, thanks to Mr. Herr for a very 
nice job of programming and documen- 
tation. If anyone has comments or 
questions about the modification, write 
me at Rt. 2, Box 285, Azle, TX 76020. 
Please remember to enclose an SASE 
when requesting a reply. □ 



Editor's Note: The complete CoCo- 
Draw system consisting of two pro- 
grams, MENUGEN and COCODRflW, will 
appear on RA IN BO W ON TA PE and RA IN- 
BOW ON DISK this month. The modifi- 
cations detailed in this article will have 
already been made. Refer to your Oc- 
tober 1986 issue of RAINBOW for specific 
instructions regarding how to use Co- 
CoDraw. Page 168 contains informa- 
tion on ordering back issues. /R\ 




PRICKLY-PEAR SOFTWARE 

QUALITY PROGRAMS FOR YOUR COCO I, II & 

HALL OF THE KING TRILOGY - Now with Animation 

HALL OF THE KING III is finally here to complete the most extensive trio of two 
disk adventures ever available for the color computer. Amazing hi-res graphics 
fill your screen as you follow your quest for the Earthstone. HALL OF THE KING 
I, II, & III may be played separately for a great challenge and wonderful entertain- 
ment. The Rainbow review of 9/86 called Hall of the King II a "Winner" while 6/86 
Rainbow review called Hall of the King I "one of the best adventure programs I 
have experienced to date". Try one or all of the Hall of the King series. Each 
adventure is now only $34.95 if purchased separately. You may order all three for 
a package price of $89.95. If you are one of the lucky adventurers who has 
already purchased Hall I & II, send proofof purchase (invoice, cancelled check, 
etc.) and receive a $10.00 discount on the new HALL OF THE KING III. The Hall 
of the King series is compatible with all versions of the Color Computer in- 
cluding the COCO III. Requires 64K and 1 disk drive. 







Fall 

Specials 



WARP FACTOR X (Rainbow Review 2/86) S29.95 
DARK MOOR HOLD (Rainbow Review 8/86) S19.95 
DOLLAR WISE Requires 32K Tape $19.95 — Disk $24.95 



FONTFILE — (New lor the COCO 111)519.95 
DRAGON BLADE (Rainbow Review 11/86) 
Animated Graphics Adventure S24.95 



POLICY ON PROTECTION 
Wc believe out customers are honest —all of our soltwarecan beb-ictied no us- 
ing slandaid backuo procedures. 

You' Personal Chech is welcome • no delay Include St 50 shipping lor each 
order TX residents add 6 114°/, sates la* Orders shipped within ,.vo days 
Dealer and author inquiries are always welcome Canadian dea'ers should con- 
tact Kely Sotlware Distributors. Lid. 608. STNT. Calgary. Albci'a 1511 ?H2. |4'8) 
236-2161. 



For a complete listing of all our programs call or 

write for our free catalog. 

PRICKLY-PEAR SOFTWARE 

213 La Mirada • El Paso, Texas 79932 
(915) 584-7784 
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1 D el ph i Bureau 



A Conversation With 
the CoCo SIG Manager 



By Cray Augsburg 
Rainbow Technical Editor 



/T\\ ver the past several months, 
Jmany readers and Delphi users 

<J/havt asked why rainbow 
doesn't publish some of the excellent 
programs that have been uploaded to 
Delphi. To gain some insight into this 
matter. 1 discussed the subject with Jim 
Reed (JIMREED), who is both the CoCo 
SIG Manager on Delphi and the Exec- 
utive Editor here at Falsoft. 

Cray: What is the basic reason THE 
rainbow doesn't publish material that 
has been uploaded to Delphi? 

Jim: Certainly, there is a great deal of 
very good Color Computer material on 
Delphi, Cray. But, we must keep in 
mind the availability of this same mate- 
rial from many sources, such as Com- 
puServe and local bulletin boards. 1 can 
see someone saying, "How dare you 
print and charge money for a magazine 
with public domain listings 1 can get lots 
of other places!" We like to think of our 
Delphi service as an extension of THE 
rainbow. I don't see it as an either/ or 
situation. 

Cray: Is all of the material in the 
CoCo SIG public domain? 

Jim: No! Most of the material on the 
SIG is not public domain. The great 
majority of the items are copyrighted. 
A lot of people do not understand this. 
We can't, for instance, just grab Mikey- 
Term, Greg-E-Term or Rickyterm and 



Cray Augsburg is RAINBOW'S technical 
editor and has an associate 's degree in 
electrical engineering. He and his wife, 
Ruth Ann, have two children and live 
in Louisville, Kentucky. His username 
on Delphi is CRA Y. 
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print them in the magazine; they are all 
copyrighted! 

Cray: But, what about all of the 
programs that are, in fact, in the public 
domain? Many of our readers don't 
have modems. 

Jim: Yes, there are a lot of clearly 
designated public domain programs in 
the databases, and, yes, many rainbow 
readers cannot just jump online and 



download them easily. But, please keep 
in mind that Delphi is a for-profit 
business. It does not make good busi- 
ness sense for Delphi to lose revenue by 
allowing the best stuff to be published 
in a magazine. 

Additionally, even if we were to 
"commandeer" some of the best public 
domain programs, in order to print 
them, we would have to give up space 



Database Report 



This month was a busy one on the 
rainbow SIGs! Uploading activity 
was brisk in spite of the summer heat as 
users were busy drawing and digitizing 
pictures for others to enjoy. The Graphics 
topic of the database is the largest by far 
of all the topic areas, occupying about 40 
percent of the entire database. If you're 
interested in graphics, (especially Color 
Max 3 graphics) then the rainbow CoCo 
SIG on Delphi is the place to be! 



OS-9 Online 

In the Graphics topic area, Dave 
Archer (DAVEARCHER) contributed 
FAT.FNT, a "fat" IBM font converted 
from the RS-DOS font of the same name 
that Marty Goodman uploaded to the 
CoCo Sig. Jerry Greiner (JERRYCG) gave 
us a graphics editor with documentation 
and a sample start-up window. Jason 
Forbes (COC03KID) contributed 33 Level 
II fonts in an flRed file for use with 
graphics windows. Jason also included a 
documentation file giving full informa- 
tion on how to load and display the fonts 
on Level II windows. 



In the Users Group topic area, OS-9 
Online SIGop Greg Law (GREG1.) 
enabled seven more of the Users Group 
files: CAL, CCG0T0XY, CHANGE PASS- 
WORD, CHANGE TERM, CHAR TO INT TD 
CHAR. CHECK and CHECKBOOK. 

In the Utilities topic area, George 
Janssen (gbjanssen) contributed an 
updated version of his fine PAK utility. 
PAK compresses several files into a 
single file, which is called an "archive" 
file. Such archived files take up a minimal 
amount of space. Another good use for 
PA K is storing all pieces of a system into 
one archive and eliminating excessive 
directory entries. 

George also provided F I LEX. PAK, a 
utility for a recursive directory listing 
showing name, date last modified and 
size of the file. The listing may be in 
name, date or size sequence, in either 
ascending or descending order. FILEX 
also has a Find option that will search for 
all filenames beginning or ending with 
xxxx, such as all files ending in . c or all 
files beginning with test. 

Steve Bjork (6809ER) submitted his 
program Setype, which allows a user to 



in the magazine used for original mate- 
rial we purchase from our readers - 
programs that are not available any- 
where else. As it stands now, you get a 
variety of material, both in the maga- 
zine and on Delphi. 

Cray: Couldn't RAINBOW alterna- 
tively add a couple of public domain 
programs on RAINBOW ON TAPE and 
RAINBOW ON DISK each month to help 
those who cannot access Delphi? 

Jim: That would be a problem, too. 
As you know, there is often little room 
left on the tape and disk when we finish 
saving all the programs appearing in the 
magazine. Sometimes we even have to 
use both sides of RAINBOW ON TAPE, 
rather than have one side as a backup, 
just to hold all the material. 

More important, we already have 
problems with readers being unable to 
use rainbow ON TAPE programs, 
simply because they have not bought - 
or bothered to read -- the magazine 
article corresponding to the program. 1 
hate to think of the situation we would 
create if we decided to "throw in" some 
extra, totally undocumented programs. 

Finally, keep in mind that we do 
copyright the tape and disk products, as 
well as the magazine. Therefore, we 
would be in the position of copyrighting 
a product that clearly had some public 



domain programs on it! Now, there is 
actually nothing wrong with that — for 
instance, a copyrighted history text- 
book has lots of public domain material 
in it but 1 think it would serve to 
"muddy the water" as to whether RAIN- 
BOW ON TAPE/ DISK is indeed a copy- 
righted product. 

Cray. Then, there are no plans to 
somehow publish some of the Delphi 
material in THE RAINBOW? 

Jim: In spite of my foregoing con- 
cerns, we do discuss such possibilities as 
finding some avenue to deliver to our 
RAINBOW readers material that is avail- 
able on Delphi, but inaccessible to those 
without modems, local nodes, etc. But, 
the key thing is that we cannot ruin the 
market for Delphi by "skimming off the 
cream." Delphi is providing a needed 
service and deserves a return on its 
investment, too. Remember, Delphi 
usually provides free upload time as an 
incentive, and it pays people to organize 
the databases, to publicize the existence 
of these CoCo programs and to help 
members with these programs. Plus, 
Delphi keeps it all stored on disk. All 
of this constitutes an investment that 
should provide a reasonable return. 

Cray: What would you recommend 
to those who do not have access to 
Delphi? 



Jim: I'd point out that I've seen brand 
new modems for as little as SI 5. There's 
a whole new world to explore with your 
CoCo when you reach out through the 
telephone lines. It's mighty handy to be 
able to post a gnawing technical ques- 
tion on the CoCo SIG - even in the 
middle of the night and have it 
answered in a matter of hours, some- 
times minutes. I'd also point out that 
Christmas is coming! 

Online Shopping 

Jim Reed invites all SIG members to 
visit the Shopping area in the CoCo 
SIG. Recently, the Shopping area un- 
derwent active development, and sev- 
eral advertisers have already started 
selling their products online. Along 
with all Falsoft products, you can order 
items from such advertisers as Comput- 
er Plus, Gimmesoft, Speech Systems 
and Spectrum Projects. 

To get to the Shopping area, just 
enter SHOP from the CoCo SIG or OS- 
9 Online SIG prompt. Once there, you 
can browse the area for vendors or 
products. If it is your first time in the 
Shopping area, you will first need to set 
up a method of payment. Then, when 
you order a product, the process will be 
much quicker and easier. D 



set the joystick type (low or high resolu- 
tion) and monitor type using an option 
list or a menu for selection. It's very 
handy for autoboot programs and may 
be added to the sian-up file. Bert Chal- 
lenor (BERTAC) sent us the source code to 
his spooler program, which allows up to 
five files to be spooled. 

In the Patches topic, Kevin Darling 
(KDARL1NG) submitted an interesting text 
file describing the known bugs, fixes and 
patches for CoCo 3 OS-9 Level II Version 
2.00.01. 

CoCo SIG 

In the General topic area. Brian 
Wright (poltergeist) sent us some 
interesting jokes from his collection and 
a text file clarifying his first grouping of 
files about the FCC proposal for Value 
Added Networks. Brian has also pub- 
lished a copy of the entire FCC docket, 
as well as some counterproposals and 
arguments. Rick Adams (RICKADAMS) 
provided a list of Tandy's top 10 games 
for the CoCo. Kevin Nickols (nickols) 
provided us with the Tandy Newsletter 
for July. (Kevin is the SIG manager for 
the Tandy and PC Compatibles SIGs.) 

In the Source Code topic area, Roger 
Krupski (hardwarehack) posted the 



source code lor the newest version of his 
popular Morse Code generator program, 
and an enhanced Screen command for 
CoCo 3s that allows the user to set up a 
40- or 80-column screen without compli- 
cated PALETTE and WIDTH commands. I 
posted the source code for a short line 
feed stripper utility, and a similar utility 
that converts all-uppercase text files into 
all-lowercase. I use these utilities some- 
limes to clean up documentation files on 
the SIG, making them a bit more read- 
able. I also posted the source code to the 
BflSFIX utility I submitted in the Utilities 
topic. 

In the Utilities topic area, Roger 
Krupski favored us with an updated 
version of his Morse Code generator 
program. Glen Hathaway (HATHAWAY) 
posted an experimental version of his 
SNAP disk editor lor the CoCo 3. Sev- 
eral SIG members downloaded the pro- 
gram and made suggestions for improve- 
ment, which he has promised to include 
in the final version. 

Roger Bouchard (HARBIE) posted an 
ML utility to add the SaveS and LoadS 
commands to ADOS-3 users, just as 
Steve Bjork's DFIX utility provided for 
the users of Disk basic. Kenneth 
Wuclzcr (WUELZHRKEN) posted Version 



2.5 of his very popular K DSK disk editor. 
KDSK can examine/ modify any sector 
on a disk in either R/S, OS-9. FLEX, or 
MS-DOS formats. It has provisions for 
fast copies, backups, formatting, sorting 
and cataloging disks, printing labels and 
other features. 

Jason Forbes posted a program for 
astronomy buffs called POSIT IDN.BflS, 
written by Jeff Yoder. Give the program 
a date and a planet and it will return the 
correct ascension and declination relative 
to the Celestial Plain. I also posted my 
line feed /null remover programs as well 
as the previously described uppercase to 
lowercase utilities. These files were 
posted in response to a user's request in 
Forum. 

Additionally. 1 posted a program 
called BASFIX, which I hope will elim- 
inate several problems for cassette users. 
BASIC programs saved on disk contain 
control information which is not present 
in basic programs on cassette, making 
files on disk incompatible with cassette 
systems unless that control information 
is removed. BASFIX is a machine lan- 
guage utility that reads a compressed 
basic cassette file that originated on a 
disk system and removes the control 
information. This will make the RA1N- 
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how on tape Tiles in the database acces- 
sible to tape users. 

In the Hardware topic. Bob Mahoney 
(COC03) sent us a complete listing of the 
RS-232 connector lor the RS-232 pack. 
This file includes information that is not 
found in Tandy's otherwise excellent 
documentation. Marly Goodman 
(Martygoodman) continued providing 
us with his informative, hardware-related 
articles. This month, Marty contributed 
an article describing how to repair a 
damaged disk controller. This file origi- 
nated as the result of several Forum 
questions from S1G members. 

Marty also provided us with an inter- 
esting technique for breaking out of 
protected games and programs in his file 
called "SHIFT-BREAK-Reset Trick Re- 
vealed." Using this technique, you may 
examine and modify your game pro- 
grams to get more lives, or you may 
choose to modify your utilities according 
to your own needs. This technique will 
usually work with programs that auto- 
start, and is usually effective even with 
the ones thai normally require one to 
power-down to exit the game. 

Marly then provided us with a descrip- 
tion of how to get a composite color 
signal from a CoCo 2. This file contains 
information that is peculiar to the CoCo 
2 and resulted from a member's question 
in the Forum. Marty is available fre- 
quently in the Forum to assist you with 
your hardware problems. The more 
interesting ones may also be published in 
Marty's "CoCo Consultations" column 
in rainbow Magazine. 

In the Games topic. Rick Adams and 
Mike Ward (mikeward) learned up to 
provide patches for the Dungeons of 
Daggorath game to allow it to run on the 
CoCo 3, as well as to provide some 
enhancements. Brian Wright posted a 
bowling game, and Jim Pogue (jim- 



FOGUE) posted a revised and greatly 
enhanced version of his very popular 
Scrabble game. James McDaniel (NEW- 
KID) contributed an excellent game called 
Crescue. This game features several high 
resolution screens and very interesting 
action. 

In the Graphics topic area. Bob Whar- 
ton (hobwharton) posted a total of 18 
MGE files! This makes Bob this month's 
most prolific contributor. Bob posted 10 
nudes converted from ST pictures and 
several oiher original and converted 
pictures. I posted a couple of digitized 
pictures of possible candidates for CoCo 
Cat at the Princeton RAINBOWfest. 
(Others are invited to posi their candi- 
dates/dreams also.) I also posted four 
new "fantasy" style pictures that are 
converted ST pictures. These are all quite 
detailed and unusual. Mike Andrews 
(mandri ws) posted his patch to Erik 
Gavriluk's Macverier program. Mike's 
program converts Erik's program to 
print on a Tandy DMP-105 printer 
instead of an Epson printer, and may 
work with other Tandy printers, as well. 

Jason Forbes posted two MGE pic- 
tures of the starship Enterprise from the 
movie Siar Trek and an outstanding 
converted ST picture of a springboard 
high diver. Eric Robichaud (FGROBI- 
chaud) contributed a very colorful 
MGE picture of everybody's hero. Bugs 
Bunny. The quality of this picture is truly 
outstanding. Rick Adams contributed a 
BASIC program that changes the palette 
positions of selected colors in an MGE 
format picture. It does not change the 
actual colors, just the palette positions. 
This is useful for pictures whose colors 
in palette positions and 1 5 arc so similar 
(or identical) that it is next to impossible 
to use Color Max 3 to view or edit them. 

D.K. Lee (horneti) posted four new 
original pictures he drew using Color 



Max 3. Roger Bouchard posted Mandril 
Mania, two pictures of the gorilla that 
you've seen on the Amiga, the ST, the 
Apple II GS and the IBM. Now you can 
see that gorilla face to face on your CoCo 
3. James Farmer (modemmaster) sent 
us a digitized picture of Charles D.Tandy 
in MGE format. Tandy buffs will want 
this one for sure. 

Clay Kunz (zafodbeblbrx) contrib- 
uted an interesting raindrop "splash" 
program that draws concentric circles 
spreading out from the center of the 
screen. Billy Hambric(SNOOPYDOG)gave 
us an interesting Peanuts MGE picture of 
Lucy holding the football for Charlie 
Brown. Just in time for the Fourth of 
July, he also sent us an MGE picture of 
Snoopy waving the flag and shooting 
fireworks, plus a digitized, I6-Ievel 
picture of Snoopy and All' done with the 
DS-69 digitizer. 

In the Music topic area. Randy Cassel 
(Bit i roll) sent us his rendition of "Jingle 
Bells" as done on the CoCo Composer, 
which was published in the December 
1983 rainbow. John Brennan (FIREFLY) 
sent us three of his favorite classic folk 
rock songs, which he arranged using the 
Bells and Whistles program from RAIN- 
BOW. Bryan Eggers (SOFTAFFAIR) pro- 
vided us with 17 new music files for 
Orchestra-90. All Orchestra-90 fans 
should check these out because Bryan 
sent us some of the best of his collection. 

In the Data Communications topic 
area, Bill Tucker (hilltucker) sent us a 
listing of governmental BBSs that may be 
accessed by the public. Mike Fischer 
(MIKE88) sent us Version 2.2 of Phone 
Clone, a disk transfer utility. 

We hope to see all of you on the 
rainbow CoCo SIG on Delphi! 

— Don Hutchison 
RAINBOW CoCo SIG Database Manager 



Two- Liner Contest Winner . . . 

This little graphics quickie will surely excite some of 
you sci-fi fans out there. 

The listing: 

PMODE3,1:SCREEN1,0:COLOR2,3:PC 
LS: CIRCLE (128, 34) , 5j3 , ,1/2,$, .5:C 
IRCLE(128,50) ,75, , 1/3 : COLOR4 , 3 : C 
IRCLE ( 1 2 8 , 17 j3 ) , 5 : LINE ( 1 2 3 , 17 8 ) - ( 
128,173) ,PSET:LINE-(135,178) , PSE 
T : LINE ( 12 8 , 17 3 ) - ( 128 , 18 1 ) , PSET : L 
INE-(12 3,186) , PSET .-LINE (128, 181) 
-(135,186) ,PSET 



1 CIRCLE(115,45) , 5 : CIRCLE (142 , 45 
) , 5 : FORX=lTO150j3 : NEXTX : COLOR1 , 3 : 
FORY=75TO190 : LINE ( 12,0 , Y) - ( 13 6 , Y) 
, PSET : NEXTY : FORX=1TO500 : NEXTX : CO 
LOR3 , 3 : FORY=19j3T075STEP-l : LINE ( 1 
2 , Y) - ( 13 6 , Y) , PSET : NEXTY : F0RX=1T 

02 J30 : NEXTX : COLOR4 , 3 : CIRCLE (128,4 
5) ,5:FORZ=pT01STEPj3:NEXTZ 



Mark Rucinski 
Oshkosh, Wl 



(For this winning two-liner contest entry, the author has been sent copies of 
both 77k- Third Rainbow Book of Adventures and its companion The Third 
Rainbow Adventures Tape.) 
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Computer/ Baud Rate 
Destruction 



By Marty Goodman 
Rainbow Contributing Editor 



/ have the old Color Scripsit ROM 
pack. When I type POKE 150, IB to set 
the Co Co to 2400 baud (which I like to 
use for my DM P- 130), and then plug in 
the Color Scripsit ROM pack, the POKE 
does not "take. " That is, the baud rate 
is still 600 under Color Scripsit. How 
can 1 make that POKE stick? Also, 1 have 
found my Co Co 2 contains 88 in loca- 
tion 150, not the 87 1 read was supposed 
to be there. Why is this? 

Michael R. Wetzstein 
Tifton, GA 

Never ever plug in a ROM pack 
cartridge with your computer turned 
on! This will result in the destruction of 
the computer. If you read the literature 
Tandy supplies with the computer and 
the ROM pack, you would have been 
warned against this most dangerous 
practice. 

The old Color Scripsit ROM pack 
uses its own internal program code to 
operate the RS-232 port on the CoCo, 
and this code is fixed at 600 baud. There 
is little you can do about that. I recom- 
mend you switch to a better word 
processor. Telewriter 64 is available as 
a tape program. It has provisions for 

Martin H. Goodman, M.D., a physi- 
cian trained in anesthesiology, is a 
longtime electronics tinkerer and out- 
spoken commentator — sort of the 
Howard Cosell of the CoCo world. On 
Delphi. Marty is the SIGop of rain- 
bow's CoCo SIG and database man- 
ager of OS-9 Online. His non-computer 
passions include running, mountaineer- 
ing and outdoor photography. Marty 
lives in San Pablo, California. 



baud rates from 300 to 9600 in addition 
to supporting 51-, 64- and 85-column 
displays, plus many other things not 
found in Color Scripsit. 

Microsoft changed the official baud 
rate constant for 600 baud from 87 to 
88. Thus, later model CoCo 2s have 88 
in the baud rate delay constant location 
150, not the 87 that is usually referred 
to in older Color Computer literature. 



Saving PMODEs 

How do I save PMODE A graphics 
screens to tape or disk? 

John Smith, Jr. 
St. Peter, FL 

If you have a tape system, the com- 
mand CSflVEM "filename", S.HG00, 
&H1DFF , &HH027 will save the screen to 
tape. With a disk system, the way to 
save such a screen would be SRVEM 
"filename. exl" , S.HE00, &H25FF, 
&HA027. Just substitute your file in 
place of filename. The first two numbers 
in those commands are the addresses in 
memory of the CoCo's first four graph- 
ics pages. The last number in each 
command (S.HA027) is the address of the 
reset routine in the CoCo, and is used 
as a safety factor, just in case you 
accidentally mistake those graphics files 
for a machine language program and try 
to execute it. If you have a graphics 
screen saved to tape and want to load 
it into the graphics area on a disk 
system, merely load it using the com- 
mand CLOflDM "filename" , S.HB00. This 
will "offset load" the tape system graph- 
ics screen into the area that is correct for 
a disk system. 



Converting Speech to Sound 

What is the address of the analog- to- 
digital converter in the CoCo? I want to 
use the joystick line to convert speech 
to digitized sound. 

Brian Kschak 
Reigelsville, PA 



The analog-to-digital conversion 
hardware in the CoCo is not accessible 
via a simple address. It is largely soft- 
ware driven: You must, using assembly 
language, operate the digital-to-analog 
converter a multiple of times and com- 
pare the values to what is seen by the 
analog-to-digital port, adjusting the 
value up or down depending on whether 
the value you have was reported as 
higher or lower than what was on the 
analog lines. Naturally, this must be 
done quite rapidly, in assembly lan- 
guage, to be at all useful. The routine 
in the BASIC ROM located at the ad- 
dress contained in locations SA00A and 
SA00B does this. You might want to 
study that routine, even though the one 
given in BASIC is rather slow. The best 
means of digitizing voice on the CoCo 
is to use Delta modulation. Delta mod- 
ulation is far more memory-efficient 
than digitizing the amplitude of the 
wave form. With Delta modulation you 
merely use a single bit per sample of the 
sound to record whether a "guess" at the 
amplitude of the wave form was higher 
or lower than the actual wave form. 
Thus, you can pack eight times as many 
samples into memory, and digitization 
of the sound proceeds far faster, too. 
This approach "chases" the wave form 
as it rises and falls. 
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Dead Keys 

My Co Co 3's keyboard is malfunc- 
tioning. Two rows of characters in the 
wiring matrix no longer work. I have 
substituted a second keyboard, but the 
problem remains, and the original 
keyboard works fine on another CoCo. 
I have also replaced the 74LS3Q chip on 
the CoCo 3. but this has not cured the 
problem. Can you help? 

Bill Jackson 

(niLUACKSON) 

Sacramento, CA 

Keyboard problems of the sort you 
describe (a row or column of dead keys) 
are often caused by a break in the wires 
on the keyboard mylar cable and are 
very hard to fix without replacing the 
keyboard. In your case, however, you 
have proven that this is not the problem. 
Another cause of a row or column going 
out is a damaged P1A chip. On the 
CoCo 3, IC 5 (LSC8I001) is the key- 
board PIA chip. You will have to de- 
solder this 40-pin chip, socket it and 
obtain a replacement chip from Tandy. 
Fortunately, the replacement chip is 
relatively inexpensive and available 
from National Parts. I recommend you 
"destructively" remove the old chip, 
cutting each pin off it, desoldering the 
pins and removing them using long- 
nosed pliers, then cleaning up the holes 
with a solder slurper prior to placing a 
socket there and soldering it in. Of 
course, you will first have to remove the 
CoCo 3 motherboard and remove its 
ground plane metal sheet. The 74LS30 
chip is involved in generating the key- 
board interrupt and could not cause the 
type of problem (one or more rows or 
columns dead) you describe. The only 
other thing to check before replacing 
your PIA is to make sure all lines from 
the keyboard connector on the CoCo 3 
are intact on their way to the pins of the 
keyboard PIA. 

Cheap Communications 

What communications program do 
you recommend for a 64 K CoCo 2 that 
costs under $25? 

John Freidrich 
Natrona Heights. PA 

1 am in full agreement with Dr. 
ASCII (see Page 127 or the August 1987 
rainbow) that your two best bets are 
Mikeyterm and GEterm. Each is avail- 
able for SIO from their authors (Mike 
Ward. 1807 Cortez. Coral Gables, FL 
33134, and Greg Miller, 9575 Royston 
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Road, Grand Ledge, Ml 48837). I 
recommend you buy both, for both are 
excellent, and the total cost will be 
under $25. 

Malfunctioning Joysticks 

I have connected a Sony KV131 ICR 
monitor I TV to my CoCo 3 using a 
cable like the one you described in the 
August RAINBOW. It "steals" 5 volts 
from the joystick port to run its sync 
combiner chip. But now my joysticks do 
not function. Full movement of the 
joystick no longer fully affects the value 
seen by the computer. Can you help me? 
Herbert F. Farmer 
Ipswitch, MA 

The problem is caused by a current- 
limiting resistor in the joystick port 
circuit. The cure is quite simple: Merely 
open your CoCo 3 and short out the 
resistor labeled R13. This resistor is 1 00 
ohm (color code brown, black brown) 
'/: watt (slightly fatter than most other 
resistors on the CoCo 3), that can be 
found to the right of the rear-most of 
the four 4464 18 pin DRAM chips on 
the CoCo 3, near the rear of the com- 
puter. The Sony KVI3I ICR to CoCo 3 
RGB cables currently being sold by 
Spectrosystems and by Spectrum Pro- 
jects now have two extra pages of 
instructions added to explain this and 
give several alternative approaches to 
curing this problem. 



Remote Keyboard 

/ read your article giving tips on how 
to make a remote keyboard cable for the 
CoCo. Could you please list the com- 
ponents needed and provide me with 
step-by-step directions for making one? 

Mike Duval I 
Zanesville, OH 

Without the use of special adapter 
boards, making a keyboard extender 
cable is a job for an experienced hacker, 
and it is not easy to provide step-by-step 
instructions. But because I had so many 
requests like yours for more specific 
instructions on making such a cable, I 
engineered a keyboard extender cable 
that is now available to the public (see 
Spectrum Projects ad). This cable still 
requires some ingenuity to fully and 
properly install, but much of the hard 
part of keyboard cable construction 
(especially the connection between 
cable and CoCo and cable and key- 
board) is done for you. You still have 



to supply your own case for the remote 
keyboard. 

Drive Alignment 

I've had problems with the drives on 
my CoCo 2. Finding a place that would 
do alignment on them was difficult, and 
the work was expensive. After the drive 
was repaired, our CoCo 2 behaved as if 
it had only 32 K. Why? We plan to get 
an NEC monitor but are not sure how 
to hook it up. 

Thomas Crowe 
Villavicencio, Colombia 



J&M systems sells Memory Minder. 
This package, which costs about S90, is 
a superb disk drive alignment system. 
With it, those who are familiar with the 
basics of how floppy drives work and 
how they are adjusted can do all com- 
mon disk drive alignment tasks without 
use of an oscilloscope. I've tested this 
program extensively against the more 
traditional method of disk drive align- 
ment and find it to be extremely accu- 
rate and much easier to use. 

I have no idea why the upper bank of 
RAM on your CoCo 2 has ceased to 
operate. It is possible that one or 
another chip in your CoCo 2 has been 
damaged. 

There are many vendors that adver- 
tise in RAINBOW (Morelon Bay, How- 
ard Medical. Computerware, and oth- 
ers) that sell adapters needed to hook a 
monitor to a CoCo 2. It is important 
that you specify whether the monitor is 
a color or a monochrome monitor and 
what kind of monitor it is. The CoCo 
2 can be easily made to work with 
composite color and composite mo- 
nochrome monitors. It cannot be 
adapted to RGB monitors, nor can it be 
adapted to IBM type TTL monochrome 
monitors. 

Your technical questions are welcomed. 
Please address them to CoCo Consultations, 
THE rainbow, P.O. Box 385, Prospect, KY 
40059. 

We reserve the right to publish only 
questions of general interest and to edit for 
brevity and clarity. Due to the large volume 
of mail we receive, we arc unable to answer 
letters individually. 

Questions can also be sent to Marty 
through the Delphi CoCo SIG. From the 
CoCo SIO prompt, pick Rainbow Maga- 
zine Services, then, at the RAINBOW> 
prompt, type ASK (for Ask the Experts) to 
arrive at the EXPERTS> prompt, where 
you can select the "CoCo Consultations" 
online form which has complete instruc- 
tions. 
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Unless you are a better typist than 
I am, you are in for a debugging 
session after keying in a long 
program listing. The listing on the 
screen must be compared to the printing 
on the page. Your eyes will shift back 
and forth between the screen and the 
magazine many times. It would be a lot 
easier to have the computer read the 
program while you sit in your easy chair 
and follow along until an error is found. 
The program Readprog uses the 
Speech/ Sound Cartridge to read BASIC 
programs residing in the computer's 
memory. 

Once Readprog is typed in and de- 
bugged, save it to tape or disk. To use 
the program, load it into the computer 
before beginning work on a new listing. 
Readprog's line numbers begin at 60000 
to avoid conflict with the program being 
entered. If you have a disk system, you 
can merge Readprog after you've fin- 
ished typing. Remember that in order to 
use the MERGE command, Readprog 
must first be saved in ASCII format 
(i.e., SAVE "READPROG", fl). 

To get Readprog started, type RUN 
60000. A menu will appear with the 
option to begin reading at the start of 
the program, start reading at a specified 
line number or read only line numbers. 
The option of reading only line 
numbers was included as a quick check 
for one of my favorite errors, leaving 
out a line. 

The program is most useful for read- 
ing long, number-packed code, such as 
DATA statements containing machine 
language instructions or DRAW strings. 
So, I built in the ability to skip the 
mundane stuff and get directly to the 
area of the program that is causing the 
problem. 

Bob Roberts is an industrial engineer 
for Anchor Hocking Corporation in 
Lancaster, Ohio. He is married and has 
two daughters who are more interested 
in boys than computers, a cat (also non 
Co Co) and a cocker spaniel. 



If you select any option but reading 
the line numbers, you will have two 
more choices to make. The program will 
ask if you want to pronounce the word 
"space" each time a blank is encoun- 
tered. With a few exceptions, spaces do 
not affect the proper functioning of 
BASIC programs, so I usually elect not 
to have blanks spoken. The next choice 
is whether or not to read all of the 
material following a REM statement or 
apostrophe. Again, remarks do not 
affect the operation of the program, and 
a lot of time can be spent listening to 
program notes or to the computer 
saying "asterisk" 32 times. If you opt 
not to hear the remarks, the program 
will say the line number and then say 
"skipping" to indicate the omission. 

The BASIC keywords are pronounced 
as they might be spoken instead of being 
read literally. For example, RND is read 
as "random;" CLS is read as "clear the 



screen" instead of simply C-L-S. If you 
don't like my versions of the pronunci- 
ation, you can substitute your own. The 
DATA statements contain strings for 
saying and printing the keywords. 

If the pronunciation of a word is 
different from the way the word will be 
printed, the string consists of the part 
to be pronounced to the left of an up 
arrow and the printed part to the right 
of the arrow. Words sounding the same 
as they are printed, e.g., LIST, do not 
have an arrow. 

Integer numbers less than 10,000 are 
also spoken as they are usually pro- 
nounced. Line number 943 will be read 
as "nine hundred forty-three" instead of 
"nine four three." 

The computer will print the words on 
the screen as it says them. To pause, 
press any key. Press any key again to 
continue. 

Readprog will run on CoCo 2s and 



3s, and it will read Color BASIC, Ex- 
tended BASIC, Disk basic and CoCo 3 
keywords. 

Start up Readprog and follow along 
as it reads, noting any changes you will 
need to make to the program. Enter all 
changes in one editing session, and you 
should be in business. When you are 
finished, don't forget to delete Read- 
prog by typing DEL 60000- before 
saving your new program. 

By the way, if anyone knows how to 
make the Speech/ Sound Cartridge 
sound like a female Klingon. I'm dying 
to hear from you. 1 hope you find the 
program useful. 



(Questions regarding this program 
may be directed to the author at 3180 
Meadowbrook Drive, Lancaster, OH 
43130. Please enclose an SASE when 
requesting a reply.) □ 
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The listing: READPROG 

60000 'a********************** 
60010 ■ BASIC PROGRAM READER 
60020 ' (READPROG) 
60030 'REQUIRES RS SPEECH/SOUND 
CARTRIDGE 

i 

i 



60050 
60060 
60070 
60080 



BY BOB ROBERTS 
■ COPYRIGHT (C) 1987 
• *********************** 

CLEAR2000 : DIM T$(120),U$(4 
5)',TE$(18) :QF=1 
60090 CLS rPRINTTAB (9) "PROGRAM RE 
ADER" :PRINT§128,"1. READ FROM ST 
ART OF PROGRAM." : PRINT: PRINT" 2. 
START READING AT A SPECIFIED 
LINE NUMBER." : PRINT: PRINT "3. REA 
D LINE NUMBERS ONLY . " : PRINT@448 , 
"ENTER YOUR CHOICE : " ; 
60100 A$=INKEY$:IFA$="" THEN6010 
ELSEA=VAL(A$) :IFA<1 OR A>3 THE 
NSOUND100,1:GOTO60090 ELSEIFA=2T 
HENCLS:PRINT@2 24,""; :INPUT"KEY I 
N LINE NUMBER TO START AT THEN 

PRESS <ENTER> " ; A$ : LN=VAL(A$) E 
LSEIFA=3 THENLQ=1 

60110 IFA=3 THENCLS:GOTO60150 EL 
SECLS:PRINT@19 2,"DO YOU WANT THE 

COMPUTER TO SAY " ;CHR$ (34 ) ; "SPA 
CE" ;CHR$(34) ;" EACH TIME IT FI 



NDS ONE OR TO IGNORE IT ?": PRINT 
:PRINT"PRESS <S> TO SAY OR <I> T 
O IGNORE."; 

60120 A$=INKEY$:IFA$="" THEN6012 
ELSEIFA$="S" THENSF=1 ELSEIFA$ 
<>"I" THENSOUND100,1:GOTO60120 
60130 CLS:PRINT@224,"DO YOU WANT 
THE COMPUTER TO READREMARKS (Y/ 

N)?"; 

60140 A$=INKEY$:IFA$="" THEN6*014 

ELSECLS: IFA$="N" THENRF=1 ELSE 
IFA$<>"Y" THENSOUND200,l:GOTO601 
30 

60150 READ I$:IF I$O"XT0KEN" TH 

EN60150 

60160 READ I$:IFI$o"ENDT$" THEN 

T$(I)=I$:I=I+1:GOTO60160 
60170 1=0 
60180 READ 1$ : IFI$<>"ENDU$" THEN 

U$(I)=I$:I=I+1:GOTO60180 
60190 FORI=l T018:READ TE$(I):NE 
XTI 

60200 X=&HFF00:Y=&HFF7E:POKEX+1, 
52 : POKEX+3 , 63 : POKEX+3 5 , 60 : POKE&H 
FF7D,1:POKE&HFF7D,0:M=256*PEEK(2 
5 ) +PEEK ( 2 6 ) +2 : GOTO602 60 
60210 P=PEEK(M) :M=M+1 
60220 IFP>47 AND P<58 THENA$=A$+ 
CHR$ (P) :NF=l:GOTO60210 ELSEIFNF= 

1 THENNF=0:M=M-1:GOTO607 50 
60230 IFP=255 THEN 60420 
60240 IFP>127 THEN 60400 

60250 IFPO0 THEN 60300 ELSEP=PE 
EK(M):IF P=0 THENCLS2:PRINT@229, 
"REACHED END OF PROGRAM" ;: END EL 
SEPRINT:M=M+2 
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60260 LZ=256*PEEK(M)+PEEK(M+1) :I 

FLZ<LN THEN M=PEEK(M-2) *256+PEEK 

(M-1)+2:GOTO602 60 

60270 IF LZ>=60000 THEN CLS : PRIN 

T@229, "REACHED END OF PROGRAM";: 

SOUND2j3j8,l: END 

60280 IFLQ=0 THENA$="LINE NUM BE 

R"":M=M+2 ELSE A$=RIGHT$ (STR$ (LZ 

) , LEN ( STR$ ( LZ ) ) -1 ) : M=PEEK (M-2 ) *2 

56+PEEK (M-l) +2 : GOTO607 60 

60290 GOTO 60450 

60300 IFP>64 AND P<91 THENA$=CHR 

$(P) :GOTO60450 

60310 IF P=32ANDSF=1THENA$="SPAC 

E* "ELSEIFP=32ANDSF=0 THENA$=" 

"ELSEIFP=3 3 THENA$="EXCLAMANATI 
ON POINT"!" ELSEIFP=34 THENA$="Q 
UOTE"":QF=QF*-l ELSEIFP=35 THENA 
$="CARRAT*#" ELSEIFP=36 THENA$=" 
DOLLAR" $" 
60320 IFP=37 THENA$="PER CENT*%" 

ELSEIFP=38 THENA$="AMBERSAND"&" 

603 30 IFP=3 9 THENA$="APOSTRUPHE" 
i ii 

60340 IFP=40 THENA$="OPEN PAREN* 

(" ELSEIFP=41 THENA$="CLOSE PARE 

N")" ELSEIFP=42 THENA$="ASTERIK* 

*" ELSEIFP=43 THENA$="PLUS"+" EL 

SEIFP=44 THENA$="KAW MAW*," ELSE 

IFP=45 THENA$="MINE US"-" 

60350 IFP=46 THENA$="PEER E ID". 

" ELSEIFP=47 THENA$="SLASH"/" EL 

SEIFP>47 AND P<58 THENA$=CHR$ (P) 

+"""+CHR$(P) ELSEIFP=58 ANDPEEK 

(M)=131 THENA$="APOSTRUPHE" '":GO 

TO60950 ELSEIFP=58 ANDPEEK (M) =13 

2 THEN60210 ELSEIFP=58 THENA$="C 

OLE UN":" 

603 60 IFP=59 THENA$="SEM E COALU 

N";" ELSEIFP=60 THENA$="LESS THE 

N*<" ELSEIFP=61 THENA$="E QUALS " 

=" ELSEIFP=62 THENA$=" GREATER TH 

AN*>" ELSEIFP=63 THENA$="QUESTIO 

N MARK"?" ELSEIFP=64 THENA$="AT" 

@" ELSEIFP=94 THENA$="UP.AER OW" 
* ii 

60370 IFP=9 3 THENA$="RIGHT BRACK 
ET"]" ELSEIFP=91 THENA$="LEFT BR 
ACKET"[" ELSEIFP=92 THENA$="BACK 

SLASH" \" ELSEIFP=95 THENA$="LEF 
T AER OW" " ELSEIF P>96 ANDP<123 

THENA$=CHR$ ( P-3 2 ) +•• " "+CHR$ ( P) 
60380 IFA$<>"" THEN60450 
60390 IFP<128 THEN60210 
60400 P=P-128 

60410 A$=T$(P) :IFRF=1 ANDP=2THEN 
60950 ELSE60450 
60420 P=PEEK(M) :M=M+1 
60430 P=P-128 



60440 A$=U$(P) 

60450 Z=INSTR(A$,""") :IFZ=0 THEN 

PRINTA$ ; ELSEPRINTRIGHT$ ( A$ , LEN ( 

A$)-Z) ;:A$=LEFT$(A$,Z-1) 

60460 IF A$="QUOTE" THENPRINTCHR 

$(34); 

60470 IF LQ=1 THENPRINT 

60480 FORA=l TO LEN(A$) 

60490 IF (PEEK(Y) AND 128) =0 THE 

N60490 

60500 POKE Y,ASC(MID$(A$,A,1) ) 

60510 NEXTA 

60520 POKE Y,13 

60530 IFPEEK(Y) <>255 THEN60530 

60540 IFINKEY$<>"" THENGOSUB6094 



60550 IFA$="LINE NUM BER" THENA$ 

=RIGHT$(STR$(LZ) , LEN (STR$ (LZ) ) -1 
) :NF=1:GOTO60760 ELSEA$="" 
60560 IF LQ=1 THEN602 60 
60570 GOTO60210 

60580 DATA XTOKEN, 4 "FOR,GOW"GO 
, REMARK* REM, APOSTRUPH E" ' , ELSE, I 
F , DATA , PRINT , ON , INPUT , END , NEXT , D 
IMENS ION "DIM, REED "READ, RUN, RE ST 
ORE "RESTORE, RE TURN " RETURN , STOP , 
POKE , CONTINUE " CONT , LIST , CLEAR 
60590 DATA NEW,C LOAD*CLOAD,C SA 
VE " CSAVE , OPEN , CLOSE , L. LIST " LLIST 
, SET, RE SET "RESET, CLEAR SCREEN" C 
LS,MOW TER "MOTOR, SOUND, AUDEO'AUD 
10, EXECUTE "EXEC, SKIP F*SKIPF,TAB 
H. OPEN PAREN " TAB (, 2 "TO, SUB* SUB 
60600 DATA THEN, NOT, STEP, OFF, PLU 
S"+,MINE US "-,TYMES"*, DIVIDED BY 
*/,T0 THE POWER OF* " , AND, OR, GREA 
TER THEN">,E QUALS *=, LESS THEN"< 
, DELETE "DEL, EDIT, TRACE ON*TRON,T 
RACE OFF "TROFF, DEFINE FUNCTION" D 
EFFN, LET, LINE 

60610 DATA P CLEAR SCREEN" PCLS , P 
SET"PSET,P.RE SET" PRESET, SCREEN 
,P CLEAR" PCLEAR, COLOR, CIRCUL'CIR 
CLE , PAINT , GET , PUT , DRAW 
60620 DATA P COPY*PCOPY,P MODE'P 
MODE, PLAY, D LOAD"DLOAD,RE NUMBER 
"RENUM, FUNCTION" FN, USING 
60630 DATA DIRECTOREYE* DIR, DRIVE 
,FEELD" FIELD, FILES, KILL, LOAD, L.S 
ET"LSET, MERGE, RE NAME " RENAME , R . S 
ET"RSET, SAVE, RIGHT, VERIFI" VERIFY 
,UN LOAD" UNLOAD, DISK INITIALISE" 
DSKINI,BACK UP* BACKUP, COPY, DISK 
IN PUT "DSKI$, DISK OUT PUT*DSKO$ 
60640 DATA QUESTION" ?, WIDTH, PAL 
ETTE,H. SCREEN *HSCREEN,L POKE'LPO 
KE, H.CLEAR SCREEN" HCLS ,H. COLOR *H 
COLOR , H . PAINT " HPAINT , H . CIRCUL " HC 
IRCLE , H . LINE " HLINE , H . GET " HGET , H . 
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PUT'HPUT 

60650 DATA H.BUFF ER'HBUFF, H. PRI 

NT " HPRINT , AIRER " ERR , BRAKE * BRK , LO 

CATE, H.STAT US'HSTSTUS , H. SET~HSE 

T,H.RE SET "HRESET,H. DRAW "HDRAW,C 

.M.P. "CMP,R.G.B. "RGB, ATTRIBUTES" 

ATTR 

60660 DATA ENDT$ 

60670 'TOKENS WITH LEADING 255. 

PUT IN ARRAY 17$ 
60680 DATA SIGN " SGN , INTUHGER" INT 
, ABSOLUTE VALUE "ABS, USER "USR,RA 
NDUMB " RND, SINE "SIN, PEEK, LENGTH "L 
EN, MAKE STRING "STR$, VALUE "VAL, AS 
KEY"ASC,CAREAKTER"CHR$,END OF FI 
LE"EOF,JOY STICK" JOYSTK, LEFT. DOL 
LAR" LEFT$ , RIGHT . DOLLAR" RIGHT$ , MI 
D. DOLLAR"MID$ , POINT 
60690 DATA INKEY* INKEY$ , MEMORY" 
MEM, ARK TAN GENT"ATN,CO SIGN" COS 
,TAN GENT "TAN, EXPONENT "EXP, FIX, L 
OGRITHUM * LOG , PUHSITION " POS , SQWHE 
RE ROOT "SQR, HEX DOLLAR "HEX$ 
60700 DATA VARIABLE POINTER "VARP 
TR,IN STRING" INSTR, TIMER, P POINT 
"PPOINT, STRING DOLLAR" STRING$ 
60710 DATA CONVERT NUMBER" CVN, FR 
EE,L O C"LOC,LAST OF FILE"LOF 
60720 DATA MAKE NUMBER " MKN $ ,AHS* 
AS, 3 3 3, L PEEK" LPEEK, BUTTON, H.POI 
NT "HPOINT, AIRER NUMBER" ERNO, AIRE 
R LINE'ERLIN 
607 30 DATA ENDU$ 

6)3740 DATA TEN,E LEVHEN. , TWELVE , 
THIR TEEN, 4 TEEN,FIF TEEN, 6 TEEN 
,7 TEEN, 8 TEEN, 9 TEEN, TWENTY , THI 
R T,4 T,FIF T,6 T,7 T,8 T,9 T 
607 50 REM TRANSLATE NUMBERS INTO 



EXPRESSIONS 

60760 L=LEN(A$) : I$=A$ : Z$=" " : IFVA 

L(A$)=0 THEN604 50 

60770 ON L GOTO 60920,60860,6083 

0,60800 

60780 GOTO 60920 

60790 REM 4 DIGITS 

60800 Z$=LEFT$(A$,1)+" THOUSAND 
ii 

60810 A$=RIGHT$(A$,L-1) :L=L-1 

60820 REM 3 DIGITS 

60830 IFLEFT$(A$,1)<>"0" THENZ$= 

Z$+LEFT$(A$, 1)+" HUN DER ED." 

60840 A$=RIGHT$(A$,L-1) 

60850 REM 2 DIGITS 

60860 IFA$ = "^" THEN60910 

60870 IFLEFT$(A$,1)="0 ,, THENZ$ = Z 

$+" AND "+RIGHT$(A$,1) :GOTO60910 

60880 IFVAL(A$)<20 THENZ$=Z$+" " 

+TE$ ( VAL ( A$ ) -9 ) : GOTO609 10 

60890 Z$=Z$+TE$(VAL(LEFT$(A$,1) ) 

+9) 

60900 

= Z$+" 

60910 

60920 

60930 

60940 



IF RIGHT$(A$,1)O"0"THENZ$ 
"+RIGHT$(A$,1) 
A$=Z$+"""+I$ 

IFNF=1 THENNF=0:A$=A$+" " 
GOTO60450 

IF INKEY$="" THEN60940 ELS 
ERETURN 

60950 IFRF=0 ANDP=58 THEN60210 
ANDP=2 THEN60450 
THEN A$="APOSTROPHI 
SKIPPING" 
THEN A$="REMARK SKIP 



60960 IFRF=0 
60970 IFP=58 
E SKIPPING" ' 
60980 IFP=2 



PING REM SKIPPING" 

60990 P=PEEK(M) :IFP<>0 THENM=M+1 

:GOTO60990 

61000 GOTO60450 /W\ 



LOWEST CONTROLLER PRICE EVER!! The New JFD-EC, Only $75 

NOW COCO 3 Compatible* 




JFD-EC DISK CONTROLLER 

The JFn-EConomic.il controller combines the best features of the 
| ordinal JFD-COCO with 
the two switchable ROM 
| sockets, fully buffered data 
lines and Memory Minder 
I in ROM. The JFD-EC re- 
places the JFD-COCO in 
I our product line at an even 
lower price. The controller 
I includes JDOS. the JDOS 
I manual and Memory Mind- 
er in ROM. (Precision Alignment Disk not included.) 
JFD-EC DiskControllerwith JDOS $75 

OPTIONS 

Precision Alignment Disk & Memory Minder Manual D/S $ 40.00 

Precision Alignment Disk & Memory Minder Manual S/S 5 26.00 

JFD-EC Disk ControllcrwithRS DOS 1.1 $ 75.00 

JFD-ECDiskControllerwithJDOSandRSDOSl.l $ 95.00 

JFD-EC Drive O System with one double sided drive $250.00 

JFD-EC Drive 0. 1 System with two double sided drives S365.00 

■JhD-EC and JFI>-CP ullh JDOS or RS DOS are COCO I comnaliM,: 



NEW TERMS 

One year warranty on parts & labor. Free shipping 

via UPS in continenlal United States for payment by 
Visa. MasterCard or Cashiers check. Hliie Label & 
foreign shipping extra. 

DRIVE SYSTEMS 

1 Irive systems include our JFD-CPor JFD-EC 
disk controller, JDOS with Memory Minder 
in ROM and one or two half-height floppy 
drive(s) with case and power supplv. 

<//A 

MM SYSTEMS, LTD. 

15100-A CENTRAL SE 

ALBUQUERQUE, NEW MEXICO 87153 

505/292-4188 




JFD-CP DISK CONTROLLER 

Our new JFD-CP. compatible with the original COCO. COCO 2 and 

the new COCO 3. features 
a parallel port to support a 
Centronics compatible 
printer or our hard drive, 
and an external ROM 
switch, which allows you to 
[ select JDOS or an optional 
RS DOS-type ROM. It 
comes in a case and in- 
cludes JDOS 1 .2 and man- 
ual. JDOS implement; all RS DOS commands, plus many more, in- 
cluding auto line numbering, error trapping, baud rale selection. 
OS/9 boot from floppy or hard drive, and Memory Minder, our disk 
drive analysis program. (Precision Alignment Disk not included.) 
JFD-CPDiskControllerwithJDOS $ 99.00 

OPTIONS 

Precision Alignment Disk <& Memory Minder Manual D/S $ 40.00 
Precision Alignment Disk & Memory Minder ManualS/S $ 26.00 
JFD-CPDiskControllerwithRSDOSl.l $ 99.00 

JFD-CPDiskControllerwithJDOSandRSDOSl.l 51 19.00 

JFD-CPDriveOSyslemwithonedoublesided drive $265.00 

JFD-CP Drive 0,1 System with two double sided drives $379,00 
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A CoCo 3 Grab Bag 



By Richard E. Esposito 

Rainbow Contributing Editor 

with Richard W. Libra 



How can I make my CoCo 3 display 
true lowercase letters in the 32- 
cohtmn mode? A t what speed is my 
computer at power-up? Is it true that my 
CoCo 3 is in the all- RAM mode at 
power-up? Also, what happened to the 
160-by-l92 Hi-Res screen that Tandy 
advertises in its catalogs? 

Douglas McLaurin 
Nogales. AZ 

1^ You can get true lowercase and 32 

1 > columns with POKE &H95C9.&H39: 
PQKE8.HFF22,&H34. Your CoCo comes 
up at I MHz. POKE 65497,0 puts it in 

2 MHz mode. The CoCo 3 is in all- 
RAM mode after it powers up. En- 
hanced BASIC puts the machine in all- 
RAM mode, then patches CoCo 2 
BASIC and adds the extensions to RAM. 
The 160-by-192 graphics are only avail- 
able to machine language pro- 
grammers. 

Using BASIC09 

j3 / recently purchased OS-9 Level II. 
_ for which I waited over four months. 
S My problem is that my CoCo will not 
load in BASIC09, hut gives me an error 
— file not found. I checked the direc- 
tory of the BASIC09 disk, and everything 
is there. The local Radio Shack can't 

Richard Esposito is a senior project 
engineer with Northrop Corp. He holds 
bachelor's, master's and doctorate 
degrees from Polytechnic Institute of 
Brooklyn. He has been writing about 
microcomputers since 1980. 

Richard Libra is a simulator test 
operator for Singer Link Simulation 
Systems Division. 




help me. What is wrong? Also, how do 
you get into BASIC09? 

Walter Dovawa 

Bradenton, FL 

ID If you are still using the anemic 35- 
^jL track, single-sided drives, after 
booting up replace your system disk 
with the BASIC09 disk and type CHX •'D0/ 
CMOS. Then type BHSIC09 B40K to get 
into BASIC09 with maximum RAM 
availability. 

Head Banging 

~] / have problems with floppy disk 
_ drive head alignment. I currently use 
_ a CoCo with three disk drives, and 
my son runs a BBS (Co Co Jet) on a 
CoCo 2 with four disk drives. One drive 
on each system will make clanking daughter's I6K CoCo 2 to 64K using 



sounds during the first access after 
power-up or a cold start, and the heads 
will go out of alignment. Is there any 
way to correct the problems other than 
using another operating system or 
running a short program to set the 
heads at a low track after power-up? 

Bill Sobczak 
Mesa, AZ 

ID If you want a permanent fix to the 
/£■ head-banging problem, get an 
EPROM version of ADOS, which also 
adds some other nice features, while 
largely maintaining compatibility with 
Disk BASIC 1.0. 

Composite Monitor Colors 

Although what you tell Eric Crich- 
low in your June 1987 RAINBOW 
column is true, there is a way to get 
several hundred colors on screen at the 
same time with a composite color TV 
monitor. A program called Color 640 
from Morel on Bay Software is included 
in A Guide to CoCo 3 BASIC and 
Graphics. These are artifact colors, but 
they have a very nice appearance. I 
suggest that future commercial pro- 
grams include this feature, as I will not 
buy any that do not. 

John Dotson 
Mason City, I A 

Thanks for the information. 



Piggyback Upgrade 

Regarding "64 K Modification Revi- 
sited" June 1985, HOT CoCo; / 
would like to upgrade my grand- 
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2118 RAM chips in piggyback config- 
uration. I have had no luck in locating 
a source for 21 18 RAM Chips. Is there 
a different ID number I can ask for? 

Bill Rosenfeld 
Roslyn Heights, NY 

1J The 2118 chips are 5-volt-only, 
/Ll6K-by-l dynamic RAMs and 
with piggybacking can bring your ma- 
chine to 32K. If you do not already have 
these chips on hand, you may consider 
a set of 4164 chips, which are 64K.-by- 
1 dynamic RAMs, require significantly 
less installation effort, and cost about 
the same. 



Lame Drives 

/ own a 5I2K CoCo 3, an RS-DOS 
1.0 Disk Controller and OS-9 Level 
II. Since OS-9 Level II seemingly 
supports 80-track, double-sided drives, 
I recently bought a pair of Mitsubishi 
80-track drives from True Data Prod- 
ucts, who assured me that these drives 
were compatible with the Teac 55 F. The 
drives did not come with any documen- 
tation, and I am not even certain what 
kind of drives they are. I have tried 
many different things, but I cannot 
formal an 80-track disk without effec- 
tively disabling everything else. I can 't 
make the drives double step. I attempt- 
ed the procedure outlined in your June 
1987 column, but once 1 had modified 
the device descriptors I could not access 
any of the drives. Calling True Data 
Products did not help me, but they 
offered the advice that OS-9 Level II 
might still be a bit buggy and that 
TEA C has stopped making 55 Fs. Great. 
It looks like I may be stuck with a 
couple of lame drives. Can you help me? 

Bryan Man 
College Station. TX 

T3 You said you have a DOS 1.0 
]C controller. Assuming it is one of 
those that needs 12 volts, it may be your 
problem, since no one on Delphi has 
reported fully successful Level II oper- 
ation with one of those. 1 am also aware 
of instances with CoCo 3 operation 
where overheating problems in the 
computer resulted in problems with 
disk I/O when running Level II. These 
were solved by adding a cooling fan. 

12- Volt Controller 

/ have a major problem with OS-9 
Level II andmy512K CoCo 3. It will 



mat or back up disks. Radio Shack told 
me disk drive alignment was extremely 
critical for OS-9, and I sent my drives 
to a Radio Shack repair facility. Still no 
success. The computer still hangs up 
and a series of lines moves across the 
screen if I try to format a disk. From 
successfully using OS-9 with a friend's 
system, I am convinced that the prob- 
lem must lie in the Disk Controller. 
Perhaps you can give me some advice 
as to the best next move. 

Russell Obbink 
Prospect. AT 



T2 It appears as though you, too, have 
/L. an old 12-volt controller. Most 
likely, if you replace it with one of 
Tandy's newer 5-volt-only ones, the 
problems will go away. 



Download Troubles 

/ am having problems getting the 
programs ARCHIE. BhS and 
hRC.BAS to run on my CoCo 2 
or CoCo 3. In an attempt to access any 
of the submenus, I gel RG Errors in 
lines 525, 545, etc. The article by Bruce 
K. Bell was in the May 1987 issue of 
RAINBOW and was downloaded from 
Delphi. 

Calvin Fuller 
Jacksonville. FL 



fi. There were three complaints 
/£ about the ARCHIE series shortly 
after it was made public, and in each 
case it was because a tape user had 
downloaded the tokenized files from the 
database using MikeyTerm. This was a 
problem because MikeyTerm cannot 
save tokenized BASIC programs to tape. 
Such saves work fine on disk systems, 
however. Also, Don Hutchison (DON- 
HUTCHISON) has uploaded BflSFIX, a 
program designed to fix tokenized 
programs downloaded to tape, to the 
Utilities section of the database on 
Delphi. 

Disto Controller Hang Up 

I recently acquired a CoCo 3 to 
upgrade my CoCo 2 system, which 
includes a Disto Super Controller 
with CoCo 3 DOS l.L.CDOS 2.3, and 
RS-DOS I.I.I can't get any of my 
programs that require an OS-9 boot 
(such as Microlllustrator and Child- 



pace) to run under any of the DOSs. 
When I boot up using either the DOS 
command or the boot program supplied 
with the programs, the OS-9 boot 
screen is displayed, but then either the 
computer gets hung up or garbage is 
displayed on the screen. 

John P. Penny 

(.IOHNPENNY) 

Staten Island. NY 



13 Tony DiStefano of C.R.C. Com- 
*-}L puters, 10802 Lajeunesse, Mont- 
real, Quebec, Canada H3L 2E8, (514) 
383-5293, reports that a timing problem 
in some of the older Disto controllers 
can cause the computer to "hang up" 
while accessing a disk. The CoCo 3 
update can be obtained for $8. This 
includes return shipping and handling. 

A Major Blowout 

While using my system recently I had 
a "blowout. " A flash came from the 
port, frying everything. I have spares 
for the CoCo 2 and my controller but 
my FD-501 drive is down. When pow- 
ered up. the LED is on. and when 
activated the motor spins but it returns 
an I/O Error. The LED always remains 
on. None of the internal components 
are visibly damaged or hot. 1 thought 
this would only happen if the controller 
was removed, hut it wasn 't even nudged. 
Help! 

Bill Naltress 
Prospect His.. II. 



IJ In addition to the chips, resistors, 
^L capacitors, etc., in the computer 
and the controller, there are vulnerable 
components on the PC board attached 
to your disk drive. Try swapping major 
components (CoCos, disk controllers 
and drives) to localize the problem 
before testing individual piece parts. 



For a quicker response, your 
questions may also be submitted 
through rainbow's CoCo SIG on 
Delphi. From the CoCo S1G> 
prompt, pick Rainbow Magazine 
Services, then, at the RAIN- 
BO W> prompt, type ASK for "Ask 
the Experts" to arrive at the EX- 
PERT^ prompt, where you can 
select the "Doctor ASCII" online 
form which has complete instruc- 
tions. 
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Animation Film Festival 



By Solla Carrock 




64K ECB 




A nimate uses the Lo-Res screen 
/ M to draw up lo 20 pictures and 
.X JL save them to tape for later 
viewing. While the program may be 
used simply to draw and store pictures, 
there are many things you can do with 
the screens created with Animate. 

Using its companion program, Pic- 
ture Book, you can create a picture 
show or a short, animated movie, with 
or without captions. To aid the anima- 
tion process, Animate allows you to 
copy one screen to the next, shift screens 
up, down, left and right, and show them 
one after another at a speed and order 
you choose. By choosing a faster speed 
to show your pictures you may develop 
short, animated cartoons. The pro- 
grams may also be used to encourage 
writing by elementary-age children. As 
pictures are randomly chosen and dis- 
played, the child can write a sentence 

Solla Carrock is a writer and artist who 
has a master 's degree in psychology. She 
has wo/kcd with children, both normal 
and emotionally disturbed, in a variety 
i ]f settings', including alternative schools 
and daycare, and has taught and coun- 
seled adults as well. She purchased a 
Color Computer about a year ago ft it 
her daughter and has been writing 
programs ever since. Solla lives in 
Portland, Oregon. 



about each picture in order to create 
his/her own story. 

Once you type in or load the Animate 
program and run it, you will be pre- 
sented with a list of choices: Draw. Read 
in pictures from tape, Tape stored 
pictures, View pictures, Copy last draw- 
ing on next screen. Shift a picture. Redo 
a drawing. Animate. Choose a different 
picture screen to be last, and End. 

Draw 

When you choose lo draw, you first 
see a list old rawing directions! Pressing 
different keys on the keyboard causes a 
line to be drawn on your screen. There 
are eight keys that control the direction 
of the line. These are the four arrow 
keys and Q. W, A and S. Their direc- 
tions are given in the chart below. The 



Q 


vf 


y k 





drawing point is initially in the center 
of the screen'. To draw with it you simply 
press a direction key and a number from 



1 to 9 to tell how far. To move rather 
than draw, press the D key. To begin to 
draw, just press the D key again. 

To change the drawing color, simply 
press one of the color keys (H to P). The 
keys and their corresponding colors are: 
H, black (erase); I, green; J, yellow; K, 
blue; L, red; M, buff; N, cyan; O, 
magenta; and P, orange. 

You may also add a line of text to the 
bottom of your screen. The text will 
start at the bottom left-hand cornet . 
taking up the last two drawing rows (the 
screen holds 32 rows of drawing pixels, 
but only 16 lines of text). The first line 
will wipe out anything there. If you type 
more than one line of text, your whole 
screen will move up two drawing liries 
in order to make space for it. So leave 
space at the top of the drawing il you 
have a lot of text. 

Press T for text. Press ENTER when 
finished with text, then you can draw 
again if you wish. If you press I again, 
you can write text, but it will write 
everything in the bottom two drawing 
rows (or over the last line of text). 

You may clear the whole screen by 
pressing the CLEAR key. 

lo store your completed drawing in 
the computer memory, press the @ key, 
Once this is done, the program will 
instruct you about how lo return to 
make a new choice. II yOU choo.se lo 




October 1987 THE RAINBOW 115 



draw again, the next screen will be 
Screen 2. In this way you can fill up all 
20 screens. The program will let you 
know when all 20 are filled. Any draw- 
ing made after that will replace a pre- 
vious one, beginning with Screen I. 

Read in Pictures From Tape 

At the beginning of the program a 
drawing will be read into Screen 1 and 
the next into Screen 2, etc. But if screens 
are occupied by previous drawings, a 
drawing will move into the next avail- 
able screen. The program continues 
reading until all the pictures on the tape 
are read in or until the 20 screen storage 
areas are full. You can create a collec- 
tion of captioned movies or animation 
features to play back whenever you 
want. If you finish only part of a movie, 
you may tape the finished screens, later 
read them in, add more screens and 
retape the entire movie. 

Reading in the pictures from tape 
does take some time, however — about 
30 seconds per screen, or 10 minutes for 
20 screens. 

Store Drawings on Tape 

Again, saving screens takes about 30 
seconds each. One side of a 20-minule 
tape (10 minutes per side) will hold 20 
screen drawings or a 20-screen movie. 

View Pictures 

This choice lets you view the screens 
as slowly as you want. This can be 
helpful if you have lost track of which 
screen you are on or want to look at a 
screen at length. You choose when the 
screen is changed, as opposed to the 
Animate choice, which changes screens 
automatically. 

Copy Last Screen Onto a New Screen 

This is a feature to help you with 
animation. It copies the last picture 
drawn onto the next available screen. 
The drawing is displayed on the screen, 
and you can make any changes needed. 
One way to make a cartoon is to draw 
a beginning picture, then make just a 
few changes to it in each succeeding 
frame. This feature makes cartooning 
much easier to do. 

Another use of this feature is in 
combination with the Shift feature. For 
example, you could copy Screen 1 onto 
Screen 2, store Screen 2, then use Shift 
to move Screen 2 to the right. You could 
then copy Screen 2 onto Screen 3 and 
shift Screen 3 to the right, and so on. 
Using Animate, you would see the 
object you had drawn moving to the 
right. 
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Shift Screen 

Use this choice to shift the screen just 
drawn or copied. You arc given a choice 
of shifting it left, right, up or down. 

Redo a Drawing 

You do need to know which screen 
you want to change; if you don't, use 
View and count the screens until you 
reach the one to be changed. Then use 
the Redo option. 



"One way to make 
a cartoon is to 
draw a beginning 
picture, then make 
just a few changes 
to it in each 
succeeding frame. " 



Animate 

This is the core of the program. After 
you have drawn as many screens as you 
want, you may show them with Ani- 
mate. There are five speeds possible. 
The two fastest speeds work for anima- 
tion, moving screens so fast that move- 
ment is simulated. The slower speeds 
are more like a movie, with the slowest 
speed allowing time for reading a cap- 
tion. To have text in fast animation, 
simply repeat the words in the same 
place on subsequent screens. The text 
will appear to remain still as the rest of 
the screen appears to move. You are 
given the option of showing the screens 
once and stopping or having them 
repeat until you press a key to stop. 

Change Number of End Screen 

After I had used an old version of the 
Animate program a few times, I discov- 
ered 1 needed this choice. For instance, 
my daughter was using it once and she 
accidentally pressed the BREAK key. For 
some reason, typing CONT and pressing 
ENTER did not work to return the pro- 
gram. Since the computer hadn't been 
turned off, I knew her pictures were still 
there stored in the computer memory, 
but I had no way to get to them. 

Suppose you had eight screens drawn 
and you wanted to insert a new one after 
Screen 6. It would take a little manip- 
ulation, but here's how to do it: 



1) Choose to copy the last screen. 
Copy Screen 8 onto Screen 9. 

2) Change the number of the last 
screen to 7. Then choose Copy and 
copy Screen 7 onto Screen 8. 

3) Change the number of the last 
screen to 9. What you have now 
are nine screens; screens 7 and 8 
are exactly the same. 

4) Choose to Redo a screen, changing 
Screen 7 to what you want. Be 
careful with this choice. It would 
be easy to wipe out something you 
want by copying over it. Re- 
member, you can always choose to 
view the screens to find out exactly 
where you are. 

End 

When you make this choice the pro- 
gram asks you several times whether 
you would like to tape your pictures 
first so that you don't lose something 
you want to keep. 

The Picturebook Program 

This is a program I wrote to make use 
of a picture file created with the Ani- 
mate program. It is a program for use 
with a child, preferably one who already 
can write a little. But with adult help, 
it can be used with a younger child as 
well. The idea is to provide a stimulus 
to write by presenting the child with 
pictures of a picture book, which the 
child writes the words for. 

When the program is run, it first 
instructs the user how to load the 
picture files, which were previously 
created with Animate. Next, the child is 
asked how many pages (up to 10) he or 
she wants in the picture book. The 
pictures for the pages are chosen ran- 
domly from those in the PICTURES file. 
Ideally there are 20 pictures for the 
program to choose from, but you may 
have fewer in your file, which just means 
there will be less variety and greater 
chance of a picture being repeated. 

The child is instructed to type a line 
for each picture and press ENTER when 
finished. After ENTER is pressed, the 
next picture is shown. Once all the 
pictures have captions, the child is 
asked to press enter to see the picture 
book. Then the entire book is shown, 
one screen after another, like a cap- 
tioned movie. At the end, the child is 
asked if he or she would like to see it 
again. If not, the text is printed on the 
screen to be copied, if the child wishes. 

When you are creating a picture file 
with Animate, keep in mind that the 
first line of text the child writes will 
cover a narrow space at the bottom of 
the picture. The next line of text and 



following lines will push the entire 
picture upward. Therefore, the best 
approach is to leave the last two draw- 
ing rows of the picture blank and also 
to leave some space at the top in case 
you have a prolific writer. 

Incorporating Pictures Into Another 
Program 

Begin your program with an instruc- 
tion to go to a block of commands at 
the end of your program. I have used 
Line 200 to begin the block, but you 
may use a bigger number if your pro- 
gram is longer. At the end of the block, 
return to the main program. 

The following is a machine language 
program to display pictures from 
among those read into memory areas 
from the tape file: 

200 CLEAR 10240, 22500:CLEfiR 

20,22470:PCLEhR 1: CLEAR 

1000.-CL50 
210 DIM A$(10),R(10) 
215 DATA &HBD,&HB3,&HED,8.H1F, 

&H01,&H10,&H8E 
220 DATA &H04,&H00,&HAG,&HB0, 

S.HA7,&HA0,&H10 
225 DATA &H8C,&H0G,S.H00,&H2G, 



&HFG,&H39 
230 FDR J=22470 TD 22489 
235 READ DA: POKE J, DA 
240 NEXT J 
245 DEFU5R1=22470 

This loads a desired picture file into 
the memory area of the computer: 

315 CL50:PRINT"LOAD THE PIC- 
TURE TAPE. CHDDSE THE ONE 
YOU WANT TD USE, PUT IT IN 
THE TAPE RECORDER AND RE- 
WIND IT. PRESS DOWN THE PLAY 
BUTTON." 

320 LINE INPUT"PRESS<ENTER> 
WHEN READY" ;AN$ 

330 I=22500:K=I+20*512-1 

335 0PEN"I",t}-l, "PICTURES" 

340 F0RLD=I TO K 

345 IF EOF(-l) THEN LD=K:XT=1 
:CLD5Ett-l:G0T0 3G0 

350 INPUTH-1,A 

355 POKE LD,A 

3G0 NEXT LD 

365 IF XTOl THEN CLOSEB-1 

370 CLS0:PRINT@1S2, "PRESS ANY 
KEY TO BEGIN" 

375 PLAY-'CDE" 

3B0 I$=INKEY$:IF IS = "" THEN GO 
TO 375 ELSE GOTO 4 



Line 4 would continue with the main 
program. Now the pictures are in mem- 
ory, but to be used they must be called 
by the program. Let R be the variable 
that represents the number of the pic- 
ture you want. Suppose you want to call 
picture four; use these lines: 

110 R=4:D=I+(R-1)»512 

115 DI=USR1(D) 

120 FOR TI = 1 TO 3000:NEXT TI 

(Line 120 is merely a delay to enable the 
picture to be seen. You may vary the 
count for a longer or shorter exposure.) 
To use another picture, just change 
Line 110 to set R equal to a different 
value (1 to 20). Or to have the picture 
chosen randomly, use these lines in- 
stead: 

105 Z=RND(-TIMER):R=RND(20) 

110 D=I+(R-1)*512 

115 DI=USR1(D) 

120 FOR TI=1 TO 3000:NEXT TI 



(Questions about this program may 
he directed to the author at 2555 N. W. 
Savier ff4, Portland, OR 97210. Please 
enclose an SASE for a reply.) D 



Clearbrook Software Group (604)853-9H8 



CSC 

IAVS 



Information /^s. 

Management rainbow 
System 



CSG IMS is THE full featured relational database 
manager for the Color Computer and OS9. The com- 
prehensive structured application language makes 
CSG IMS the ideal developement tool for sophisti- 
cated file-intensive applications. 

. User defined screen and 
report formats. 



• Interactive access to data- 
bases and quick queries. 

• CSG IMS includes a recur- 
sive compiled language sup- 
porting program modules 
with full parameter passing. 



• Record, index and file size al- 
most unlimited. 

. Text, BCD floating point (14 
digits), short and long in- 
teger and date types. 

CSG IMS for CoCo2/3 OS9 L1/2 (single user)$169.95 
CSG IMS for OS9 L2 or 68000(multi user) $495.00 
CSG IMS demo with manual $30 



ERINA - Symbolic User Mode Debugger for OS9 
ERINA is a must for all serious assembler and C 
software developers. It lets you find bugs quickly by 
displaying the machine state and instuctions being ex- 
ecuted. You can set address and register break 
points, dump, search and change memory, assemble 
and disassemble code and many other things to 
numerous to mention. This program will pay for itself 
over and over by the time you save solving your bugs. 
Requires 80 column display, OS9 L1/2 $69.00 



SERINA - System Mode Debugger for OS9 L2 

SERINA is a debugger for OS9 system modules 
(device drivers, file managers, etc.). It allows you to 
trace execution of any system module, set break 
points, assemble and disassemble code and examine 
and change memory. There are special provisions for 
executing code with critical timing loops and for ac- 
cessing I/O registers. A must for system programmers. 
Requires CoCo3, OS9 L2, $139.00 

80 col. terminal connected to /T1 or /T2 



Shipping: N. America - $5, Overseas - $10 

Clearbrook Software Group 



P.O. Box 8000-499 
Sumas, WA 98295 



\JCs 



OS9 Is a trademark of Microware Systems Corp., MSDos Is a trademark of Microsoft Corp. 



MSF - MSDos File Manager for C0C0 3/OS9 Level 2 
MSF is a file manager which allows you to use MSDos 
disks directly under OS9. You don't have to change 
the format of the data before using it! 
Requires C0C0 3, OS9 L2, SDISK3 driver $45.00 
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Listing 1: AN I MATE 



Change line color 

75 IF ASC(A$)<81 AND ASC(A$)>71 
THEN CC=ASC(A$)-72:GOTO 50 



Clear screen 

80 IF ASC(A$)=12 THEN CLS0 : GOTO 
50 



Make choices 

1 GOTO 800 

5 CLS0: PRINT "MAKE YOUR CHOICE:": 
PRINT" 1) DRAW" : PRINT" 2) READ IN PI 
CTURES FROM TAPE" : PRINT" 3 ) TAPE S 
TORED PICTURES" : PRINT" 4 ) VIEW PI 
CTURES "-.PRINT" 5) COPY LAST DRAWI 
NG ON NEXT SCREEN" 

6 PRINT "6) SHIFT A PICTURE" : PRIN 
T "7) REDO A DRAWING": PRINT "8) AN 
IMATE": PRINT "9) CHOOSE DIFFERENT 

PICTURE SCREEN TO BE LAST": PRIN 
T "10) END" 
10 INPUT "TYPE NUMBER, THEN PRESS 

<ENTER>.";AN:IF AN<1 OR AN>10 T 
HEN 5 

15 ON AN GOTO 705,305,505,405,10 
95,720,1110,1020,1175,605 



Draw (Choice 1) 

50 PP=POINT(X,Y) 

51 A$=INKEY$:SET(X,Y,4) :RESET(X, 
Y) :IF A$="" THEN 51 

52 IF PP=0 THEN RESET (X, Y) : GOTO 
55 

53 IF PP>0 AND PP<9 THEN SET(X,Y 
,PP) 



To store 

55 IF A$="@" THEN GOTO 200 
60 IF A$="T" THEN GOTO 1150 



Draw line or move drawpoint 

65 IF A$=" A " OR A$=CHR$(10) OR A 
$=CHR$(9) OR A$=CHR$(8) OR A$=" 
W" OR A$="Q" OR A$="S" OR A$="A" 
THEN GOSUB 100: GOSUB 115 
70 IF A$=" M THEN 50 



Change from draw to move or from move to draw 

85 IF A$<>"D" THEN 95 

90 IF DR=0 THEN DR=1:PLAY "CD" :G 

OTO 50 ELSE DR=0:PLAY "B":GOTO 5 

9 5 GOTO 50 

Subroutine to read how far to draw or move 

100 B$=INKEY$:IF B$="" THEN 100 
105 B=VAL(B$) 
110 RETURN 

Set points and check that points are not off screen 

115 FOR TI=1 TO B 

120 GOSUB 150: IF X<0 THEN X=0 

125 IF X>63 THEN X=63 

130 IF Y<0 THEN Y=0 

135 IF Y>31 THEN Y=31 

140 IF DR=0 THEN SET (X, Y , CC) : IF 

CC=0 THEN RESET (X,Y) 

144 NEXT TI 

145 RETURN 

Subroutine to set line direction 

150 IF A$=" A " THEN Y=Y-1: RETURN 

155 IF A$=CHR$(10) THEN Y=Y+1:RE 

TURN 

160 IF A$=CHR$(8) THEN X=X-1:RET 

URN 

165 IF A$=CHR$(9) THEN X=X+1:RET 

URN 

170 IF A$="W" THEN X=X+1 : Y=Y-1 :R 

ETURN 

175 IF A$="Q" THEN X=X-1 : Y=Y-1 :R 

ETURN 

180 IF A$="S" THEN X=X+1 : Y=Y+1 :R 

ETURN 

185 IF A$="A" THEN X=X-1 : Y=Y+1 :R 

ETURN 
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Store drawn pictures in one of 20 storage areas in 
computer memory 

200 N=N+1:IF N>20 THEN N=1:NI=1 

205 1=22500 +(N-1)*512 

206 IF NFLAG=1 THEN NFLAG=0:N=NS 
AVE 

210 STORE=USR0(I) 

215 IF N>=20 THEN CLS0 : PRINT "THE 

PICTURE STORAGE SPACE IS NOW FU 
LL. SAVE PICTURES ON TAPE BEFORE 

DRAWING MORE, OR YOU WILL LOSE 
YOUR FIRST DRAWINGS." 
220 LINE INPUT "PRESS ENTER FOR 
NEW CHOICE."; AN $ 
225 GOTO 5 

Read pictures from tape (Choice 2) 

305 N=N+1:IF N>20 THEN N=l 

310 I=22500+(N-l)*512:K=22500+20 

*(512)-1 

315 CLS0: PRINT" POSITION TAPE BEF 

ORE PICTURE FILE. PRESS PLAY BUT 

TON . " 

3 20 LINE INPUT"PRESS <ENTER> WHE 

N READY" ;R$ 

325 OPEN "I", #-1, "PICTURES" 

330 FOR LD=I TO K 

335 IF EOF(-l) THEN LAST=LD-1:LD 

=K:CLOSE#-l:XT=l:GOTO 3 50 

340 INPUT#-1,A 

345 POKE LD,A 

350 NEXT LD 

355 IF XTOl THEN CLOSE#-l :NI=1: 

LAS T=K: PRINT "PICTURE STORAGE ARE 

A IS FULL." ELSE XT=0 

3 60 LINE INPUT "PRESS <ENTER> TO 

MAKE NEW CHOICE. ";AN$ 

365 N=(LAST-22499)/512:IF N>INT( 

N) THEN N=INT(N)+1 

370 GOTO 5 

View pictures one at a time (Choice 4) 

405 CLS0: PRINT" PRESS<ENTER> TO S 
EE STORED PICTURES . PRESS ANY KEY 

TO SEE NEXT PICTURES . " 
410 LINE INPUT AN$ 

412 IF NI=1 THEN Nl=20 ELSE N1=N 
415 FOR D=l TO Nl 
420 1=22500+ (D-l)*512 
425 DI=USR1(I) 
430 AN$=INKEY$:IF AN$="" THEN 43 



435 NEXT D 

440 GOTO 5 



Store pictures on tape (Choice 3) 

505 CLS0:PRINT"REWIND EMPTY TAPE 

. PRESS PLAY AND RECORD BUTTONS. 
ii 

510 LINE INPUT "PRESS <ENTER> WHE 

N READY."; AN $ 

512 IF NI=1 THEN Nl=20 ELSE N1=N 

515 EP=22500+(N1*512)-1 

525 OPEN "0",#-l, "PICTURES" 

530 FOR 1=22500 TO EP 

535 A=PEEK(I) 

540 PRINT#-1,A 

545 NEXT I 

550 CLOSE #-1 

555 GOTO 5 



End (Choice 10) 

605 INPUT "DO YOU WANT TO TAPE PI 
CTURES BEFORE ENDING" ;AN$ 
610 IF LEFT$(AN$,1)="N" THEN END 
ELSE GOTO 5 



LOWEST PRICE EVER! 



Quadruple the Memory of Your COCO 3! 
with a 

COCO 3 TURBO RAM BOARD 

Choose Either A Bare Board Or A 51 2KB Board! 



BARE BOARD 



$29.95 




Just Add Your 
Own Chips! 



256KB(selol8) $36 
512KB(selot16) $64 
(120nsecRAMChips) 



512KB BOARD 

$79.95 

Fully 
Assembled 
and Tested! 



• Fast 120 nsec RAM Chips 

• Easy-lo-Follow Installation 

• No Soldering 

• Instructions With Photo's! 



New! 



PAL UPGRADE - ONLY $9.95 
lor your gray or while MULTI-PACK (26-3024| 



30 DAY MONEY-BACK GAURANTEE! 
FULL 1 YEAR WARRANTY! 

ORDER NOW! 
(714)681-7222 

I VISA OR MC ORDERS ACCEPTED I 



Shipping & Handling: 

Wilhin the U.S. & Canada: add $3.00 

Outside the U.S. & Canada: add S5.00 

COD Orders: add $2.00 

(Calif. Residents: add 6% sales tax) 



Or send Check or Money 
Order to: 

Performance Peripherals 
1 1432 Pena Way 
MiraLoma.CA 91752 
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Draw instructions (Choice 1) 



Store picture 



705 CLS0: PRINT "PRESS < A > FOR UP, 
<DOWN ARROW> FOR DOWN, < BACKS PACE 

> FOR LEFT,<RIGHT ARROW> FOR RIG 
HT,<A> FOR DOWN AND LEFT,<S>FOR 
DOWN AND RIGHT, <W> FOR UP AND RI 
GHT,<Q> FOR UP AND LEFT. THEN PRE 
SS A KEY {0-9) TO TELL HOW FAR TO 

DRAW . ; " 

708 PRINT"PRESS D TO MOVE, NOT D 
RAW, THEN PRESS D AGAIN WHEN YOU 

WANT TO DRAW." 

709 LINE INPUT"PRESS ENTER FOR M 
ORE DRAWING DIRECTIONS ." ;AN$ 

710 CLS0: PRINT" PRESS THE LETT 
ERS H-P FOR DIFFERENT COLORED LI 
NES. H IS INVISIBLE. PRESS <CLEAR 

> TO CLEAR SCREEN. TO SAVE A PIC 
TURE PRESS <@>." 

711 PRINT"TO ADD TEXT PRESS<T>.E 
NTER WHEN DONE AND YOU WILL BE A 
BLE TO DRAW AGAIN." 

715 LINE INPUT"PRESS ENTER TO ST 
ART DRAWING . " ; AN$ : CLS0 

716 CC=4:X=32:Y=15:DR=0 

717 GOTO 50 



Shift picture (Choice 6) 

720 CLS0:INPUT"CHOOSE SHIFT DIRE 
CTION 1 ) RIGHT ; 2 ) LEFT ; 3 ) UP ; 4 ) DOWN 
. TYPE NUMBER AND ENTER. "; SD: CLS 
0:IF SD<1 OR SD>4 THEN 720. 
725 1=22500 +(N-1)*512 
730 ON SD GOSUB 750,755,760,765 
740 CLS0: PRINT"YOU MUST VIEW SC 
REENS TO SEE RESULT OF SHIFT. PR 
ESS <ENTER> FOR NEW CHOICE.": LIN 
E INPUT AN$ 
745 GOTO 5 

750 FOR T=l TO 4 : A=USR2 (I) : ST=US 
R0 ( I ) : NEXT T : RETURN 
755 FOR T=l TO 4 : A=USR3 (I) : ST=US 
R0(I):NEXT T: RETURN 
7 60 FOR T=l TO 2 : A=USR4 (I) : ST=US 
R0(I):NEXT T: RETURN 
765 FOR T=l TO 2 : A=USR5 (I) : ST=US 
R0 ( I ) : NEXT T : RETURN 
800 REM DRAWFILE C.SOLLA CARROCK 
2/87 



Machine language programs 

805 CLEAR 200,2 2 200 



815 DATA &HBD,&HB3,&HED,&H1F,&H0 

1,&H10,&H8E 

820 DATA &H04,&H00,&HA6,&HA0,&HA 

7,&H80,&H10 

825 DATA &H8C, &H06 , &H00 , &H2 6 , &HF 

6,&H39 

830 FOR J=22450 TO 22469 

835 READ DA: POKE J, DA 

840 NEXT J 

845 DEFUSR0=22 450 



Display picture 

850 DATA &HBD,&HB3,&HED,&H1F,&H0 

1,&H10,&H8E 

855 DATA &H04 , &H00 , &HA6 , &H80 , &HA 

7 , &HA0 , &H10 

860 DATA &H8C,&H06,&H00,&H2 6,&HF 

6,&H39 

865 FOR J=22470 TO 22489 

870 READ DA: POKE J, DA 

875 NEXT J 

880 DEFUSR1=22470 



Shift picture right 

885 DATA &HBD, &HB3 , &HED, &H1F, &H0 
1 , &H10 , &H8E , &H04 , &H00 , &H8 6 , &H10 

886 DATA &HB7 , &H57 , &HB1 , &HC6 , &H1 
F, &HA6 , &H80 , &HA7 , &H21 , &H3 1 , &H21 

887 DATA &H5A, &H2 6 , &HF7 , &HF6 , &H5 
7 , &HB1 , &HA6 , &H80 , &HA7 , &HA8 , &HE1 

888 DATA &H31 , &H21 , &H5A, &HF7 , &H5 
7 , &HB1 , &H2 6 , &HE5 , &H3 9 

889 FOR 1=22201 TO 22242 

890 READ DA 
895 POKE I, DA 
900 NEXT I 

905 DEFUSR2=22201 



Shift left 

910 DATA &HBD,&HB3,&HED,&H1F,&H0 

1 , &H10 , &H8E , &H04 , &H00 , &H8 6 , &H10 , 

&HB7 , &H57 , &HB1 , &HC6 

915 DATA &H1F,&HA6,&H80,&HA7,&HA 

8 , &H1F , &H3 1 , &H2 1 , &HA6 , &H80 , &HA7 , 

&H3F, &H3 1 , &H21 , &H5A 

920 DATA &H2 6,&HF7,&HF6,&H57,&HB 

1 , &H5A, &HF7 , &H57 , &HB1 , &H2 6 , &HE5 , 

&H39 

925 FOR 1=22243 TO 22284 

930 READ DA: POKE I , DA 

935 NEXT I 

940 DEFUSR3=22243 
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Shift up 

945 DATA &HBD, &HB3 , &HED, &H1F, &H0 

1 , &H10 , &H8E , &H04 , &H00 , &HC6 , &H20 , 

&HA6,&H80 

95,0 DATA &HA7,&HA9,&H01,&HE0,&H3 

1 , &H2 1 , &H5A , &H2 6 , &HF5 , &HA6 , &H80 

955 DATA &HA7 , &HA8 , &HE0 , &H31, &H2 

1 , &H10 , &H8C , &H06 , &H00 , &H2 5 , &HF3 , 

&H39 

960 FOR 1=2228.5 TO 22320 

965 READ DA: POKE I, DA 

970 NEXT I 

975 DEFUSR4=222 85 



Shift down 

985 DATA &HBD, &HB3 , &HED, &H1F, &H0 
1 , &H10 , &H8E , &H04 , &H00 , &HA6 , &H80 , 
&HA7 , &HA8 , &H20 

986 DATA &H31, &H21 , &H10 , &H8C, &H0 
5 , &HE0 , &H2 5 , &HF3 , &HC6 , &H20 , &HA6 , 
&H80 

990 DATA &HA7,&HA9,&HFE,&H20,&H3 

1, &H21, &H5A, &H2 6 , &HF5 , &H39 

995 FOR 1=22321 TO 22356 

1000 READ DA: POKE I , DA 

1005 NEXT I 

1010 DEFUSR5=22 321 

1015 GOTO 5 



1085 LINE INPUT"PRESS <R> AND <E 

NTER> TO RETURN FOR NEW CHOICE, 

OTHERWISE ENTER TO SEE AGAIN."; A 

N$ 

1090 IF LEFT$(AN$,1)="R" THEN 5 



Copy last picture to new screen (Choice 5) 



ELSE 


1055 


1095 
1100 
1105 


1=22500+ (N-l)*512 

A=USR1(I) 

GOTO 716 



Redo a screen (Choice 7) 

1110 PRINT"WHICH PICTURE (1-20) D 

YOU WISH TO CHANGE? IF YOU DON 

'T KNOW, TYPE 99 TO RETURN TO CHO 

ICES. CHOOSE A DIPLAY OF PICTURES 

(CHOICE 4) TO FIND OUT THEN RETU 

RN HERE." 

1115 INPUT N3 

1120 IF N3=99 THEN GOTO 5 

1125 IF N3<1 OR N3>20 THEN GOTO 

1110 

1130 NSAVE=N:NFLAG=1:N=N3-1 

1135 1=22500+ (N3-l)*512 

1140 A=USR1(I) 

1145 GOTO 716 



Animate (Choice 8) 

1020 CLS0: INPUT" CHOOSE SPEED: 1)V 
ERY HIGH ; 2 ) HIGH ; 3 ) MEDIUM ; 4 ) SLOW ; 
5) VERY SLOW. TYPE NUMBER AND ENTE 
R"; SPEED: IF SPEED<1 OR SPEED>5 T 
HEN 1020 

1025 IF SPEED=2 THEN SPEED=50 
1030 IF SPEED=3 THEN SPEED=500 
1035 IF SPEED=4 THEN SPEED=1500 
1040 IF SPEED=5 THEN SPEED=3000 
1045 CLS0: INPUT "DO YOU WANT TO 1 
)STOP AFTER ONE SHOW, OR 2) KEEP 
GOING TIL ANY KEY IS PRESSED (TYP 
E NUMBER AND ENTER) " ;KP: IF KPOl 

AND KP<>2 THEN 1045 
1050 IF NI=1 THEN Nl=20 ELSE Nl= 
N 

1055 FOR D=l TO Nl 
1060 1=22500+ (D-l)*512 
1065 DI=USR1(I) 

1070 FOR TI=1 TO SPEED: NEXT TI 
1075 NEXT D 
1080 I$=INKEY$:IF 1$="" AND KP=2 

THEN GOTO 1055 



Subroutine to type words on screen 

1150 PRINTS 4 80, ""; 

1155 T$=INKEY$:IF T$="" THEN GOT 

1155 

1160 IF T$=CHR$(13) THEN GOTO 50 

1165 PRINT T$; 

1170 GOTO 1155 



Change which screen is last (Choice 9) 

1175 INPUT "NUMBER OF LAST PICTUR 
E YOU WISH STORED" ;N: IF N<1 OR N 
>20 THEN 1175 

1180 PRINT "THE NEXT SCREEN TO B 
E DRAWN ON WILL BE NUMBER";: IF N 
=20 THEN PRINT" 1"; ELSE PRINT N+ 

l; 

1185 PRINT "ANY PICTURE ALREADY 
N THIS SCREEN WILL BE ERASED IF 
YOU DRAW AGAIN, AND WON'T SHOW W 
HEN YOU DISPLAY PICTURES." 
1190 LINE INPUT" PRESS<ENTER> FOR 

NEW CHOICE"; AN $ 
1195 GOTO 5 
2000 INPUT N: PRINT N:GOTO 2000 
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October 9-11 





Thai lun-loving 
(ellne is on the 
loose and ready 
to meel the CoCo 
Communily in 
Princeton 




AINBOWfest is the only comput- 
er show dedicated exclusively 
to your Tandy Color Computer. 

Nowhere else will you see as many CoCo-related 
products or be able to attend free seminars con- 
ducted by the top Color Computer experts. It's like 
receiving the latest issue of THE RAINBOW in your 
mailbox! 

RAINBOWfest is a great opportunity for com- 
mercial programmers to show off new and innova- 
tive products for the first time. Princeton is the 
show to get information on capabilities for the 
new CoCo 3, along with a terrific selection of the 
latest CoCo 3 software. In exhibit after exhibit, 
there will be demonstrations, opportunities to 
experiment with software and hardware, and spe- 
cial RAINBOWfest prices. 

Set your own pace between visiting exhibits and 
attending the valuable, free seminars on all as- 
pects of your CoCo — from improving BASIC skills 
to working with the sophisticated OS-9 operating 
system. 

Many people who write for THE RAINBOW — as 
well as those who are written about — are there to 
meet you and answer questions. You'll also meet 
lots of other people who share your interest in the 
Color Computer. It's a person-to-person event and 
a tremendous learning experience in a fun and re- 
laxed atmosphere.' 

To make it easier for you to participate, we 
schedule RAINBOWfests in different parts of the 
country. If you missed the fun in Chicago, why 
don't you make plans now to join us in Princeton? 
For members of the family who don't share your 
affinity for CoCo, RAINBOWfest is located in an 
area with many other attractions. 

A special feature of RAINBOWfest is the 
Educational Sandbox, which features child- 
oriented workshops to give hands-on experience 
to an age group often neglected. There are ses- 
sions for the kindergarten through third-graders, 
and for fourth- through seventh-graders. And, as 
an additional treat for CoCo Kids of all ages, we've 
invited frisky feline CoCo Cat to join us for the 
show, RAINBOWfest has something for everyone 
in the family! 

The Hyatt Regency Princeton offers special 
rates for RAINBOWfest. The show opens Friday 
evening with a session from 7 p.m. to 10 p.m. It's a 
daytime show Saturday — the CoCo Community 
Breakfast (separate tickets required) is at 8 a.m., 
then the' exhibit hall opens promptly at 10 a.m. and 
runs until 6 p.m. On Sunday, the exhibit hall opens 
at 1 1 a.m. and closes at 4 p.m. 

TicKets for RAINBOWfest may be obtained di- 
rectly from THE rainbow. We'll also send you a 
reservation form so you can get your special room 
rate. 

The POSH way to go. You can have your travel 
arrangements and hotel reservations handled 
through rainbow affiliate, POSH Travel Assist- 
ance, Inc., of Louisville. For the same POSH treat- 
ment many of our exhibitors enjoy, call POSH at 
(502) 893-3311. All POSH services are available at 
no charge to RAINBOWfest attendees. 



Show Schedule: 

Friday evening 

— Exhibits open from 7 p.m. to 10 p.m. 

Saturday 

— CoCo Community Breakfast at 8 a.m. 

— Exhibits open at 10 a.m. and close at 
6 p.m. 

Sunday 

— Exhibits open from 11 a.m. to 4 p.m. 



Free Seminars 



Cray Augsburg 

RAINBOW Technical Editor 

OS-9 For Absolute Beginners 

Steve Blyn 

RAINBOW Contributing Editor 
CoCos For Remedial Education 

Tom DiMarco, Sr. 

Senior Field Engineer, Glmmesolt 
Drive Installation, Maintenance 
and Operation 

Richard Esposito 

RAINBOW Contributing Editor 
Doctor ASCII Open Forum 

Art Flexser 

President, Spectro Systems 

Adding Features to the BASIC ROMs 



Jutta Kapfhammer 

RAINBOW Managing Editor 
Writing for Publication 

Marty Goodman 

RAINBOW Contributing Editor 
Open Forum, CoCo Consultations 

Greg Law 

Independent Programmer and Author 
Rainbow's OS-9 Online SIGop 
Programming, An Overview 

Jeffrey Parker 

Independent Programmer and Author 

CoCo DOS and MS-DOS: Bridging the Gap 

Between the Worlds 

Dr. Larry Preble 

President, Dr. Preble's Programs 
CoCo as a Mind Interface 



CoCo Community Breakfast 

Jim Reed — Executive Editor, Falsoft, Inc. 

Our keynote speaker for the traditional CoCo Community Breakfast is Jim 
Reed, who served for 4'A years as managing editor of THE RAINBOW. Not 
only does Jim know the CoCo Community intimately, he's been "back- 
stage'' at THE RAINBOW since the magazine's early days when it was pro- 
duced in the basement of Lonnie Falk's house. Jim has the "inside story" on 
CoCo developments and CoCo people and says his testimony "will tell it all: 
the good, the bad and the funny." 



▲ SPECIAL EVENT! 

We're pleased to announce The Educational Sandbox, a joint Tandy/RAIN- 
BOW effort. This is a computer workshop for RAINBOWfest kids. There will 
be two sessions on both Saturday and Sunday. One workshop will be for 
the kindergarten through third-grade set, and the other for fourth through 
seventh graders. Each workshop will last between 45 minutes and one hour, 
and will give the children and their parents hands-on experience in using 
Tandy computers and software. 



Dale Puckett 

RAINBOW Contributing Editor 
Level II Windows and The New 
BASIC09 Graphics 

Jim Reed 

Executive Editor, Falsolt, Inc. 

An Introduction to RAINBOW'S Delphi SIG 

John Ross 

Ross Computer Services 

and John Gibney 

Delphi National Sales Director 

Open Forum, Telecommunications 

Ed Samuels 

Prolessor ol Law, New York Law School 
Computer Copyright: A How-to Guide 



Dale Puckett will be autographing copies of 
The Complete Rainbow Guide to OS-9 
Level II, Volume I: A Beginners Guide to 
Windows in the exhibit hall on Saturday and 
Sunday. 

RAINBOWfest - Princeton, New Jersey 
Dates: October 9-11, 1987 
Hotel: Hyatt Regency Princeton 
Rooms: $86 per night, single or double 
Advance Ticket Deadline: October 2, 1987 



Join us at a future RAINBOWfest! 

RAINBOWfest - Chicago, Illinois 
Dates: May 20-22, 1988 
Hotel: Hyatt Regency Woodfield 
Rooms: $64 per night, single or double 
Advance Ticket Deadline: May 13, 1988 



FREE T-Shirt to firs! five licket orders received from each state. 
First 500 ticket orders received gel a Chromaselte lape. 



YES, I'm coming to Princeton! I want to save by buying tickets now at the special advance sale price. 

Breakfast tickets require advance reservations. 

Please send me: 

Three-day tickets at $9 each total 

One-day tickets at $7 each total 

Circle one: Friday Saturday Sunday 

Saturday CoCo Breakfast at $12 each total 

RAINBOWfest T-shirts at $6 each total 



Name (please print) 

Address 

City 

Telephone 



(Advance sale-price// T-shirts must he picked up al the door.) 
Handling Charge $1 . $10 ° 

TOTAL ENCLOSED 

(U.S. Currency Only, Please) 

□ Also send me a hotel reservation card for the Hyatt Re- 
gency Princeton ($86, single or double room). 



Company 

□ Payment Enclosed, or Charge to: 
□ VISA D MasterCard □ American Express 

Account Number 



Exp. Date 
Signature 



Advance ticket deadline: Oct. 2, 1987. Orders received less than two weeks prior to show opening will be held for you at the door. Tickets will also be 
available at the door at a slightly higher price. Tickets will be mailed six weeks prior to show. Children 4 and under, free; over 4, full price. 

Make checks payable to: The RAINBOW. Mail to: RAINBOWfest, The Falsoft Building, 9509 U.S. Highway 42, P.O. Box 385, Prospect. KY 
40059. To make reservations by phone, in Kentucky call (502) 228-4492, or outside Kentucky call (800) 847-0309. 



Listing 2: PICTBDDK 
1 GOTO 200 

3 1=22500 

Randomly choose pictures for the picture book 

4 CLS0: INPUT "THE COMPUTER WILL S 
HOW YOU PICTURES. WRITE A LINE F 
OR EACH ONE, THEN PRESS <ENTER> . 

AT THE END THE COMPUTER WILL SH 
OW YOU YOUR STORY. TYPE HOW MANY 

PICTURES YOU WANT, UP TO 10, TH 
EN PRESS ENTER. "; EN: IF EN<1 OR E 
N<10 THEN 4 

5 FOR N=l TO EN 

6 Z=RND( -TIMER) 

10 R=RND(20) :R(N)=R 

Display picture and wait for user to enter a line 

15 D=I+(R-1)*512 

20 DI=USR1(D) 

25 PRINT@480,"" ; 

30 T$=INKEY$:IF T$=""THEN GOTO 3 

35 IF T$=CHR$(13) THEN GOTO 45 
40 PRINT T$;:A$(N)=A$(N)+T$:GOTO 

30 
45 NEXT N 

Show each picture with the text written by user 

50 INPUT"PRESS<ENTER>TO SEE YOUR 

PICTURE BOOK";AN$ 
55 FOR N=l TO EN 
60 R=R(N) 
65 D=I+(R-1)*512 
70 DI=USR1(D) 
75 PRINT@480,A$(N) ; 
80 FOR TI=1 TO 3000: NEXT TI 
85 NEXT N 

Check to see if user wants viewing repeated; if not 
print the story on the screen 

90 INPUT" PRESS R AND ENTER IF YO 
U WANT TO SEE IT AGAIN. IF NOT, 
JUST PRESS ENTER. ";AN$ 
95 IF LEFT$(AN$,1)="R" THEN GOTO 

55 
100 CLS0 : PRINT@0 , "HERE IS YOUR S 
TORY : " ; 

105 FOR N=l TO 5 
110 PRINT A$(N) ; 
115 NEXT N 

120 IF EN>5 THEN LINE INPUT"... P 
RESS ENTER FOR PAGE 2";AN$ 
125 FOR N=6 TO EN 
130 PRINT A$(N) 



13 5 NEXT N 

140 INPUT"DO YOU WANT TO WRITE A 

NOTHER STORY" ;AN$ 

145 IF LEFT$(AN$,1)="N" THEN END 

Clear story array if new story desired 

150 FOR N=l TO 10 
155 A$(N)="":NEXT N 
160 GOTO 4 

Machine language program to display randomly 
chosen pictures from among those read into memory 
areas from tape file 

200 REM PICTUREBOOK C. SOLLA CAR 

ROCK 1/87 

205 CLEAR 10240 , 22500 : CLEAR 20,2 

2470:PCLEAR 1 : CLEAR 1000:CLS0 

210 DIM A$(10) ,R(10) 

215 DATA &HBD,&HB3,&HED,&H1F,&H0 

1,&H10,&H8E 

220 DATA &H04,&H00,&HA6,&H80,&HA 

7 , &HA0 , &H10 

225 DATA &H8C, &H06 , &H00 , &H2 6 , &HF 

6,&H39 

230 FOR J=22470 TO 22489 

235 READ DA: POKE J, DA 

240 NEXT J 

245 DEFUSR1=22470 

Load desired picture file into memory 

315 CLS0: PRINT" LOAD THE PICTURE 
TAPE. CHOOSE THE ONE YOU WANT TO 

USE, PUT IT IN THE TAPE RECORDE 
R AND REWIND IT. PRESS DOWN THE 
PLAY BUTTON." 

3 20 LINE INPUT" PRESS <ENTER>WHEN 
READY" ; AN $ 

325 CLS0:PRINT@202,"TAPE LOADING 
":PRINT@224,"THIS WILL TAKE ABOU 
T 10 MINUTES" 
330 1=22500 :K=I+20*512-1 
335 OPEN"I",#-l, "PICTURES" 
340 FOR LD=I TO K 

345 IF EOF(-l) THEN LD=K:XT=1:CL 
OSE#-l:GOTO 360 
350 INPUT#-1,A 
3 55 POKE LD,A 
3 60 NEXT LD 

3 65 IF XTOl THEN CLOSE#-l 
370 CLS0:PRINT@192,"PRESS ANY KE 
Y TO BEGIN" 
375 PLAY"CDE" 
380 I$=INKEY$:IF 1$="" THEN GOTO 

375 ELSE GOTO 4 /Rv 
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CnCo's ^F^f^ORED^BLE:- - 



CoCo II 
CoColll 
Drive 


$ 87 
$159 
$235 


CM-8 Monitor 
Deluxe Joystick 
Joysticks (pair) 


$248 
$ 24 

$ 13 


Mouse 
MultiPak 


$40 

$75 


Disk storage box (50) 
CCR-81 Cass. Rec. 


$ 8.50 
$42 



Disks (SS) 
Disks (DS) 



$7.50/box 
$8.00/box 



'Includes free library case 



DMP-106 

DMP-130A 

DMP-440 



Special 
120 CPS) 



$145 
$265 
$545 



Tandy 1000 EX 
Tandy 1000 SX 
Tandy 1000 HX 
Tandy 1000 TX 



$495 
$720 
$575 
$910 



VM-4 Monitor 
CM-5 Monitor 
CM-11 Monitor 



$ 99 
S240 
$325 



CoCo3 512K Upgrade 
MultiPak Upgrade (26-3024) 
MultiPak Upgrade (26-3124) 
OS-9 Level 2 



$130 
$ 8 
$ 7 
$ 63.95 



Mi n imum Order $1 5 .00 



Please Note - Our ads are submitted 
early, so prices are subject to change!!! 
We appreciate your cooperation & 
understanding in this matter 



Method of Payment. 

MC. Visa. Am. Ex - Sorry, No Citiline* 

Cert ; fied Check or Money Order 

Persona* Checks - Allow 1 week to clear! 



spas® s>sm<§is osir &wunla@&£ 
mum, ass? <§>?!? &>UL ^smm &a&!a©w&&£ 



* Full TANDY 

Warranty 

* 100% TANDY 

PRODUCTS 

* FREE UPS Shipping 

f on orders over $50.00 
under $50 add $2.00 



==> CALL <== 

In Pa: 
215 759-7794 

In N. J. : 
201 735-6138 



(HO 



COMPUTER CENTER 



MicroWorld 

230 Moarestown Road, Wind Gap, PA 18091 
I.nneco Plaza, Clinton, N.J. 08809 



ALL PRICES INCLUDE SHIPPING ?! ! ! 

(In Continental US) 

1009B TANDY EQUIPMENT WITH FULL 
RADIO SHACK WARRANTY 



'","."""; 



-T urn of the Scrow ^ 



Dissecting the Disk 
Controller 



By Tony DiStefano 
Rainbow Contributing Editor 



A little over a year ago, I started 
a series ol" articles describing the 
LSI (Large Scale Integrated) 
circuit chips of the CoCo. There was the 
CPU, the SAM, the PIAs and the VDG 
along with a whole lot of other TTL 
support chips. One thing that 1 did not 
touch upon is the disk controller. The 
controller from Radio Shack also has 
some LSI chips. In fact, the first Radio 
Shack controller. Catalog No. 26-3022, 
used a three-chip set. The later con- 
trollers used more up-to-date parts. 
What I intend to do this month is to 
describe the older controller and the 
newer controller. In both cases, you will 
learn more about the FDC (Floppy 
Disk Controller). 

The controller chip that Radio Shack 
used in their first controller is a part 
made by Western Digital. The FDI793- 
02 is a floppy disk formatter/ controller. 
That means that the controller can 
format a disk as well as read and write 
to it. This chip had many features: soft 
sector format compatibility, automatic 
track seek with verification, single and 
double density, and IBM 3740 and 34 
densities, just to name a few. This was 
a wonderful chip. It came in a 40-pin 
package, very compact for its day. But 
it required at least two other support 
chips — the WD169I Data Separator 
and the WD2143-0I Four Phase Clock 
Generator. Together these three chips 

Tony DiStefano is a well-known early 
specialist in computer hardware proj- 
ects. He lives in Laval Ouest, Quebec. 

126 THE RAINBOW October 1987 



and a half-dozen or so other support 
chips made up the controller. The power 
requirements for this setup is 5 volts and 
12 volts. 

The chips in Figure 1 are the pinouts 
of the three Western Digital parts that 
make up the heart of the controller 
followed by a pin-by-pin description of 
the FD 1 793-02 controller. Overiines 
indicate that the signal is an active low 
pin. 

The other two chips are used to 
support the FDC. They connect to each 
other in various ways and connect to 
other TTL circuitry. It would be a little 
too long to explain each pin of these two 
chips and maybe even useless. Yes, 
useless, because the three-chip FDC 
combination is now obsolete. Western 
Digital has since redesigned the FD 1 793 
and made a new chip called the 
WDI773. This chip has the WDI691 
and the WD2 143 built right into the new 
FDC. That's right, three chips in one. 
Another welcomed feature of the 
WDI773 is that it does not require +12 
volts. It will run on a +5 volt supply 
only. 

This development was great for 
Radio Shack because they had just 
released the new CoCo 2. It was smaller, 
lighter and less expensive than the 
CoCo 1. Following the new CoCo 2 
came a new controller. Radio Shack had 
to come up with a new controller that 
did not use +12 volts. It was easy with 
the new FDC. Not only did it not use 
+ 12 volts but was less expensive than the 
older three-chip set. It also required less 



support circuitry. Another plus for the 
new FDC was that it did not have any 
adjustments. The older 1793 had three 
trim pot adjustments. 

This new controller was great all 
around. Less money, no +12 volts, only 
one part, and no adjustments. It also 
had one more feature: It came in a 28- 
pin package. Figure 2 shows the pinout 
of the WD 1773 and a pin-by-pin des- 
cription. Notice that functionally, the 
parts in Figure 1 and Figure 2 are the 
same. 

Since the introduction of this new 
FDC chip, many companies have used 
it to make their own version of Radio 
Shack's controller. Though the exact 
circuitry may vary from design to de- 
sign, they have to follow certain rules. 
First, the FDC has to be mapped to the 
same memory area. That requires some 
sort of memory-mapping chips. The 
way in which the FDC and the CPU 
transfer data has to be the same if it is 
to be compatible. 

The technique used in a Radio Shack 
or compatible controller to transfer 
data (a complete sector) is not too 
difficult to understand. It starts off with 
the CPU setting up the FDC registers 
for the right track and sector. It then 
turns on the proper drive motor and 
drive select. Next, it gives the read or 
write sector command to the FDC. It 
checks to see that everything is all right, 
then, it flips the bit that halts it. This is 
done by hardware that pulls the HALT 
line of the CPU low. When the FDC has 
data ready or needs data from the CPU, 
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Figure 1 



1 — NC. This pin has to be left N/ 

C though it connects to a back 
b ias g enerator. 

2 — WE. The Write Enable pin tells 

IheFDC to write data. 

3 — CS. The Chip Select is used to 

map the FDC into the CPU's 
memory area. 

4 — RE. The Read Enable pin tells 

the FDC that a read cycle is being 
done. 

5 and 6 — A0 and Al. Two address 

lines select one of the four regis- 
ters of the FDC. 

7 to 14 — DO to D7. The eight data 
lines that transfer data to and 
from the FDC and the CPU. 

15 — STEP. This output steps the 



disk drive to the next track. 

1 6 — DI RC. This output tells the disk 
drive which direction to step. 

17 — EARLY. This indicates an early 
write precompensation. 

18 - - LATE. This indicates a late 
write precompensation. 

19 — MR. A low on this pin resets 
the FDC completely. 

20 — VSS. This line is the ground line 
for the FDC. 

21 — V CC.Th is line requires +5 volts. 

22 - TEST. This pin is used for 
testing and should be kept high 
during normal operation. 

23 — HLT. The Head Load Timing 
signal is high when the head is 
engaged. 



24 — CLK. This input requires a free- 
running I MHz. clock. 

25 — RG. The Read Gate is used to 
synchronize the external data 
separators. 

26 — RCLK. The Read Clock is a 
square-wave signal derived from 
the data stream. 

27 -- RAW READ. Data stream 
directly from the drive. 

28 — HLD. Head Load controls the 
loading of the disk head against 
the floppy disk. 

29 — TG43. This outputs tells the 
support circuits that the head is 
sitting on a track greater than 43 
(for 80-track drives). 

30 — WG. Tells the drive that a write 
is to be done. 

31 -- WD. The Write Data output 
contains the data and address 
marks to be written to the drive. 

32 — READY. The Ready input tells 
the FDC that the disk is ready for 
a read o r a writ e operation. 

33 -- WF/VFOE. A bi-directional 
signal. When WG=0, a low will 
terminate any write command. 
When WG= 1 , this pin remains low 
un til the end of the data field. 

34 — TROO. This input tells the FDC 
when the head is positioned over 
Track 0. 

35 — IP. This Index Pulse input tells 
the FDC that the index hole has 
just gone by . 

36 — WPRT. The Write Protect 
input tells FDC that you cannot 
wri te to the disk. 

37 — DDEN. Double Density pin 
tells the FDC if you want double 
or single density. 

38 — DRQ. This output indicates 
that the FDC is ready for another 
byte in the write mode and that the 
buffer is full in the read mode. 

39 — INTRQ. The Interrupt Request 
indicates that any command has 
been finished. 

40 — Vdd. This input requires +12 
volts. 



it unhalts the CPU via the DRQ line of 
the FDC. The CPU then stores that byte 
of data into memory on a read or fetches 
another byte from memory on a write 
and then halts itself again. This proce- 
dure is repeated until all the data of that 
sector is transferred. At this point the 
FDC fires the INTRQ; this signal is 
connected to the IRQ of the CPU. The 
IRQ routine then gets the CPU out of 
this loop and continues to the rest of the 



read /write sector software. 

This procedure is the same for all 
controllers that hook to the CoCo. 
Until now that is. Disto is soon to 
announce a new controller called the 
Super Controller II. This controller will 
do everything the Radio Shack con- 
troller can and more. It also has a 
different way to transfer data. It has 
built-in RAM memory and the support 
circuitry to transfer data to and from 



this RAM without the use of the CPU. 
In the OS-9 operating system, this is a 
big boost. Data is transferred without 
the use of the HALT line. The CPU 
does not have to mask the interrupts. 
That means that once the CPU gives the 
command to the FDC, it is free to do 
other things and return to get the data 
when the FDC is finished. That means 
no more missed characters on the key- 
board when a disk operation is running. 
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1 - CS. The Chip Select is used to 15 

map the FDC into the CPU's 
memory area. 16 

2 - RW The Read /Write pin tells 

the FDC what cycle is being done. 17 

3 and 4 — AO and A I. Two address 

lines select one of the tour regis- 18 
ters of the FDC. 
5 to 12 - - DO to D7. The eight data 19 
lines that transfer data to and 
from the FCD and the CPU. 20 

13 — MR. A low on this pin resets 
the FDC. 

14 — GND. The ground return for all 21 
signals. 



- Vcc. Power supply of +5 volts 
only. 

- STEP. This output steps the 
disk drive to the next track. 

- DIRC. This output tells the disk 
drive which direction to step. 

CLK. This clock input requires 
an 8 MHz, clock. 

- RD. This input requires raw 
data from the disk drive. 

P RECOM P. This input tells the 
FDC when to use the write pre- 
compensation circuit. 

- WG. Tells the drive that a write 
is to be done. 



INCLUDES 

• STAR NX- 10 PRINTER 

• BLUE STREAK II INTERFACE 

• SOFTWARE TRIO (see below) 

• EXTRA RIBBON 



SPECS 120cpsDratt. 
30 cpsNLQ. Hales. 
SubASuperacnpis, 
EmphasiJoO. Douttlo&tnko, 
Proportional, International. Down 
Loadable Char , Graphics 480-1920 
dois/ine. Forward or Reverse rv2!6" 
Line Feeds, Frtciion & Push Tractor, 
5K Data Birllor. 



CITIZEN 120D PACKAGE 



INCLUDES 

• CITIZEN 120D PRINTER 

• INTERFACE & CABLE 

• SOFTWARE TRIO (see below) 

• EXTRA RIBBON 



SPECS 120cpsDrall,25cpS 
NLQ. Ua5C5. Sub 4 Superscripts. 
Emphasized. Ooubiesinhe. Proportional, 
International, User Dolmed Characters, 
Revorse print. Graphics 460*1920 dotvlno. 
Fhciionand Tractor. 4K Bufler 



SH) Shipping am! Insurance 

DIV^PJUETE 

Reviewed in 
"87 March 
Rainbow r-i- 

»$!(( Shipping and Insurance 

COMPLETE 



BLUE STREAK II ! SOFTWARE TRIO 



A serial to parallel interface thai can increase 
your data transmission 4 fold over conventional- 
compatible interfacing. An additional serial I/O 
port permits port sharing with another serial 
device without recabling. 

$49^5 +S2 Shipping 

«C/IQ«; w /P° w o" supply 
^J^ 3 +S2 Shipping 



SPECS: 30Oto96Q0S»itchable 
Baud Rates, 1 Year Warranty. Input 
4 Pin Serial. Oulput 36 Pin Parallel 
and 4 Pin Sena! 



Type Selection Tutorial Program 

Specify Star/Scikosha/or Citizens Printer. 

Super Gemprinl Screen Dump 
8"x 1 1 "dump with grey level shading for color. 

Drayon's Word Processor 2.2 

Create, save & print customized documents. 

All Three Programs $1995 £» 



pping 



DAYTON ASSOCIATES Wr, INC. 

7201 CLAIRCREST BLDG. C 

DAYTON, OHIO 45424 

OHIO RESIDENTS ADD 6% SALES TAX • C.O.D. ADD $2.00 



PERSONAL SERVICE 
(513) 236-1454 

Visa & MasterCard 
within the continental U.S. 



22 — WD. The Write Data output 
contains the data and address 
m arks to be written to the drive. 

23 — TR00. This input tells the FDC 
when the head is positioned over 
Track 0. 

24 — IP. This Index Pulse input tells 
the FDC that the index hole has 
just gone by . 

25 - WPRT. The Write Protect 
input tells FDC that you cannot 
write to the disk. 



26 





DDEN. Double Density pin 
tells the FDC if you want double 
or single density. 

27 — DRQ. This output indicates 
that the FDC is ready for 
another byte in the write mode 
and that the buffer is full in the 
read mode. 
- INTRQ. The Interrupt Re- 
quest indicates that any com- 
mand has been finished. 
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Information for this column was 
taken from Storage Management Pro- 
ducts Handbook 1986, Western Digital 
Corporation, Literature Department, 
Irvine, California, and Color Comput- 
er Disk Interface, Tandy Corporation. 
Fort Worth, Texas. *R\ 
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Color Max 3 — 
Graphics Editing System 



For the first month or so after the 
introduction of the Color Computer 3 
very little software existed that would 
take advantage of this new machine's 
enhanced powers. Soon we began to see 
a few minor pieces of software enter the 
market. We had even seen a few simple 
graphics programs. But it was not until 
the recent Chicago RAINBOWfest that 
we saw a full-blown graphics editing 
system that utilized nearly every feature 
of the CoCo 3. To be sure, I am speaking 
of Color Max 3 from Computize. 

Color Max 3 is a full-featured graph- 
ics editor with a simple-to-use point and 
click user interface such as is found on 
other systems and even on some pro- 
grams designed for earlier CoCos. A 



point and click interface means exactly 
what it says. First you "point" at a 
picture of what you want to do (an icon) 
with your mouse or joystick and then 
you "click" the button to select that 
option. It is easy enough that even 
young children can learn to use the 
program in a short amount of time. 
That is, if they can get mom and dad 
away from the system long enough. 

Don't let its simplicity fool you, 
though. Color Max 3 offers complete 
control over an image 320-by-200 pixels 
in size, in any 16 of 64 colors. It supports 
the use of both RGB and color compos- 
ite monitors. You can edit your picture 
on a pixel-by-pixel basis or make 
sweeping changes to the image with one 



or two quick mouse movements. At the 
touch of a button, you can add text to 
the drawing in any of several fonts and 
styles. Your imagination is the limit to 
what you can create. 

I am by no means an artist. In fact, 
my main interest in computer graphics 
stems from my technical background 
and the need to create circuit diagrams. 
However, Photo I will give you some 
idea of what a neophyte da Vinci can do 
in just a few hours. It also gives you 
some idea of what Color Max 3 looks 
like on the screen. (Both Photo I and 
Photo 2 were taken from a Radio Shack 
CM-8 RGB monitor.) 

The words you see across the top of 
the screen are the titles for the pull- 
down menus. When you click on one of 
these titles, a menu full of options will 
scroll down the screen. The File menu 
lets you save and load pictures as well 
as clear the screen or print an image. 

The Edit menu gives you the ability 
to transfer and copy sections of the 
screen from one place to another. You 
can use options under this menu to save 
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certain portions of the screen, as well. 
Other options allow you to invert an 
image or "flip" it horizontally and/or 
vertically. 

The Goodies menu offers several 
interesting items. It is through this 
menu that you enter "Fat Bits." Fat Bits 
literally blows a certain section of the 
screen up to a size that allows easy 
single-pixel editing (sec Photo 2). Some 
of the other options allow you to change 
your color selection or edit a fill pattern 
or select the shape and color of the 
paintbrush. 



PUMPKIN TOR REVIE 



jsa 




The Font menu lets you select any of 
the standard 1 1 fonts included with 
Color Max 3. It also works in conjunc- 
tion with the Style menu, which allows 
you to alter the 1 1 fonts with the follow- 
ing options: Plain. Bold, Italic. Outline 
and Shadow. In addition, several styles 
can be active simultaneously, which 
gives you quite a choice of how your 
text will look. 

On the far left side of the Color Max 
3 screen you will see the usable icons. 
These allow you to select which basic 
designs Color Max 3 will draw next. If 
you click on the Box icon. Color Max 
3 knows you want to draw boxes. If you 
click on the Pencil icon, you are all set 
to do some freehand drawing. Other 
icons include the Eraser, Circle, Paint- 
brush, Text Entry and Edit Lasso. The 
most used functions of Color Max 3 are 
available through the icons. 

Just below the icons is a section that 
allows you to select how wide you want 
lines to appear when drawing lines, 
circles and boxes. Just click on the line 
width you desire and off you go. 

To the right of the line width section 
are the fill patterns and colors. You can 
select any of the 1 6 colors in the top row 
as your foreground and/ or background 
colors. Also, through the Goodies 
menu, you can change which colors you 
are allowed to use. Color change is done 
by choosing a mix of different hues of 
red, green and blue, if you are using an 
RGB monitor. If you are using a com- 
posite color monitor, simply select an 
intensity level for the colors available in 
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the CoCo 3's CMP mode. 

The bottom row on the screen indi- 
cates the patterns you can use to fill 
sections of your picture. These patterns 
are all black-and-white when you first 
run Color Max J, but, again, you can 
edit colors into the patterns as well as 
completely alter the patterns. My only 
misgiving about the patterns is that, 
once created for a given image, they are 
not saved with that image when it is 
saved to disk as the selected colors are. 
This means you must recreate the pat- 
terns during a different editing session. 

Now, let's talk about printing your 
picture. Keep in mind that Color Max 
3 allows the use of up to 1 6 colors on 
the screen. I don't know about you, but 
my Radio Shack DMP-200 can't quite 
handle that many colors. In fact, the 
Color Max 3 manual tells you it might 
be best to use black-and-white designs 
if you are using a dot matrix printer. It 
also suggests that one of the best ways 
to keep a copy of the screen is to use a 
good 35mm camera. 

Computize does sell versions of Color 
Max 3 that support the Epson printers. 
Radio Shack dot matrix printers and 
even a version that produces 16-color 
printouts of the screen on a CGP-220. 
For those whose printer is not yet 
supported, Computize offers a version 
of the program containing no printer 
driver. Instead, you receive a coupon 
thai entitles you to a free printer driver 
when one for your printer is written. 
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High Resolution 
Joystick Interface 

The new Radio Shack High Resolu- 
tion Joystick Interface is both literally 
and figuratively a "black box." It is a 
design marvel that will allow your CoCo 
3 to access any of its possible 640-by-l92 
pixels. Simply connect the interface to 
your CoCo 3's cassette port and one of 
the two joystick ports. Then plug your 
joystick or mouse into (he port on the 
interlace. 

Unfortunately, the interface is not 
easily programmed with BASIC". Because 
of speed requirements, the software must 
use machine language drivers to read the 
joystick. This, however, is not a major 
drawback when you consider the abilities 
of the unit. Also, plenty of software is, 
and will be, available to utilize the 
interface. 



Each copy of Color Max 3 includes only 
one printer driver. This is an interesting 
and commendable way to deter soft- 
ware piracy, but it can be annoying to 
those people lucky enough to own two 
different printers. 

Color Max 3 can be controlled with 
cither a joystick or a mouse. In cither 
case, it requires the new High Resolu- 
tion Joystick Interface (Catalog No. 26- 
3028) from Radio Shack. This is the 
only way to achieve single-pixel control 
on the Hi-Res screen. I have used Color 
Max 3 with both a mouse and a joystick. 
If it is at all possible, you will want to 
purchase and use a mouse. You will find 
that pointer control is much smoother 
(see following review of the High Reso- 
lution Joystick Interface). 

When you first run Color Max 3, the 
program will use defaults that set it up 
for the RGB monitor and also set the 
printer baud to 600. Both of these 
defaults and how to change them are 
thoroughly covered in the manual. All 
that is required is one or two simple 
changes to a BASIC program. This is 
very handy and will allow present users 
with TVs to change their systems when 
they upgrade to RGB-capable moni- 
tors. It also enables those with RGB 
monitors to view pictures created on 
composite monitors. 

Speaking of the manual, I have seen 
few CoCo software manuals that devote 
as much time to helping the user as this 
one. Each aspect of the program is 



Personally. I find the results far better 
when using a mouse with this unit. When 
using a joystick, screen movement seems 
jerky. I also found that, when setting 
points on the Hi-Res screen, the joystick 
will sometimes set two dots in different 
locations. Before I go any further, I must 
say that this is not the fault of the 
interface or the software! It has happened 
with several different programs, and the 
problem clears up completely when a 
clean mouse is used. It appears that the 
joystick ports get a little dirty and cause 
the erratic behavior. The joystick seems 
to work just fine if you use a little tuner 
cleaner to clean the ports up before using 
it. 1 have seen the problem occur when 
the mouse is dirty, as well. Once cleaned, 
though, everything works OK. 

I must admit. I was quite surprised that 
a simple product could produce such 
accuracy. Needless to say, just as a 
hammer is the first important tool a 
carpenter has, every CoCo 3 owner 
should have one of these. 

(Tandy Corporation; S9.95. Available in 
Radio Shack stores nationwide.) 



covered. While you really don't need the 
manual to get started with the software 
(it really is user-friendly), it is handy for 
some of those complicated maneuvers 
Color Max 3 allows. In addition, the 25- 
page manual explains some of the 
technical and background concepts 
behind the software. I tip my hat to 
Computize for their consideration in 
this area. It really shows their support 
for the user. 

Another area in which Color Max 3 
is supported is optional utility pro- 
grams. In addition to offering several 
versions of Color Max 3, Computize 
sells picture converter utilities, which let 
you convert pictures created with CoCo 
Max, Graphicom and even the Atari ST 
to a formal compatible with Color Max 
3 (the MGE format used by Color Max 
3 is designed to allow full use of the 
CoCo 3's capabilities and, additionally, 
to allow easy compression of graphics 
files to reduce the amount of required 
disk space). Also available is a set of 
over 25 additional Color Max 3 fonts 
from Derringer Software and even a 
Font Editor, which allows you to create 
your own font designs. Unfortunately, 
we have not yet received these items for 
review. However, we will let you know 
about them as soon as they are submit- 
ted. 

All in all. Color Max J is a well- 
designed graphics editing system for the 
CoCo 3. It takes full advantage of many 
of the CoCo 3's capabilities and is very 
easy to use. I can certainly recommend 
this program to anyone whose interests 
include computer graphics. 



(Computize, Inc., P.O. Box 207, Langhornc, 
PA 19047, 215-946-7260; S59.95) 



— Cray Augsburg 
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My Artist — 
Graphics Editor for 
the CoCo 3 

1 remember well the rush of excite- 
ment that overcame me when I first laid 
eyes on my CoCo 3. New, improved 
BASIC commands! Up to 80-by-24 true 
text modes! Direct monitor connectors! 
Enhanced keyboard! Ahh but all 
these features paled next to the feature 
that really made the CoCo 3 shine - 
graphics! Up to 16 different colors from 
a palette of 64 different colors, shades 
and hues, and resolution as high as 640- 
by-192. With all this power waiting to 
be tapped, 1 knew it would not take long 
for the software companies to release 
new software to bring out the Picasso 
in all of us. 

My Artist by Seesof is a graphics 
editor written in Super Extended BASIC 
for the CoCo 3. It supports the four new 
HSCREENs. which vary in resolution 
from 320-by-192 to 640-by-I92 with 
four colors available. Saved in an 
unprotected format to allow the user to 
easily back up the original disk for 
safekeeping, the program is simple to 
load and run. 

Upon running the program, the user 
is presented with a brief title screen and 
has the option to load a previously 
stored creation, or create a new one. At 
this point either the stored graphics are 
loaded, or the user is prompted to select 
from the various graphics modes. After 
this, the graphic screen is presented, and 
editing can begin. 

Because the entire screen is used for 
your artwork, there are no icons or 
other point-and-click type amenities. 
Instead, the user selects the choice of 



tools from the keyboard. Various com- 
mands support the drawing of simple 
points, lines, boxes, filled boxes and 
ovals. In most cases, the user keys the 
appropriate letter, selects the initial 
point, presses the firebutton, relocates 
the cursor to the terminal point, and 
presses the firebutton again. 

The current location is indicated by 
a small crosshair cursor. Movement is 
achieved by pushing the joystick in the 
direction you want the cursor to move. 
In the fast mode, the cursor moves five 
to 10 pixels at a time. In the slow mode, 
the cursor moves on a pixel-by-pixel 
basis. These modes are selected by the 
F2 and Fl keys, respectively. The user 
may also move directly to a desired 
location by choosing the 'J' option 
which moves the cursor to a point on 
the screen directly represented by the 
X,Y coordinates of the joystick. How- 
ever, because the resolution of the 
screen is up to 10 times greater than that 
of the joystick, the user will need to 
choose the slow mode afterward to 
achieve precise positioning. 

Some of the other supported com- 
mands include copying, whereby the 
user can store a portion of the screen 
contained in a rectangle of any size and 
duplicate it in any area as many times 
as desired; text mode, which allows the 
user direct entry of characters from the 
keyboard; and paint, which allows the 
filling of an enclosed area with any 
available color. The hue command 
allows the selection of the various 
shades available for the palette slots, 
while the color command selects the 
current color in use. Save allows the 
pictures to be stored either to disk or 
cassette. Finally, a help screen is avail- 
able at the touch of the ? key. 

Unfortunately, I found the program 
difficult to use and flawed to a certain 
extent. The program does not support 
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P.O.BOX 6464 
BAKERSFIELD, CA 93386 



32 OR 64K FILE PROGRAM . . .$16.95 / Cassette — BOTH VERSIONS INCLUDE: 
ML ROUTINES FOR DATA. EDIT, SORT. REVIEW, SEARCH, ERROR TRAPPING. MANY HARDCOPY OPTIONS. 

ENJOY A STIMULATING GAME OF KENO. 
A GRAPHIC DELIGHT FILLED WITH REALISTIC, 
EXCITING ACTION. PICK 1 TO 15 SPOTS. 
COMPLETELY RANDOM WINNERS. PREPARE 
FOR AN EXTREMELY CHALLENGING GAME. 
CAN VOUBREAKTHE HOUSE? 
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32 OR 64K KENO SIMULATION 
Cassette... S12.95 Disk ... $13.95 




ML GRAPHICS DUMP FOR DMP-200 
16 / 32 / 64K Cassette . . . $15.95 16 / 32 / 64K Disk ... $16.95 



ML GRAPHICS DUMP FOR THE DMP-200. 
POSITION GRAPHIC PAGES 1-4, 5-8, OR 1-8 ANY 
PLACE ON PAPER. MENU PROMPTSI STANDARD, 
CONDENSED. OR COMPRESSED. PRINTOUTS IN 
NORMAL, ELONGATED, DOUBLE-, OR TRIPLE-SIZE, 
SEND CHECK OR MONEY ORDER. CAUF. RESIDENTS ADD 6% SALES TAX 
WE WILL MODIFY PROGRAMS TO WORK WITH YOUR PRINTER - NO EXTRA! 
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a true "undo' command, which I came 
to regret quite often. The manual sug- 
gests that the user save the file prior to 
using the Paint command; however. I 
cannot envision doing this every five to 
10 minutes, as it is a tedious process for 
the disk user and takes up quite a bit of 
disk space, and for the cassette user, it 
is even more tedious. Also, the Paint 
command itself was very difficult louse, 
as the user is required to know the 
numeric code representing the border of 
the object. The manual slates that the 
user should write down the color name 
and its code value, but this is an incon- 
venience that could have been easily 
avoided. I would suggest that the new 
user make his/her own 'crib sheet' until 
he/she is familiar with all the com- 
mands. 

On the plus side. My Artist has 
adequate documentation and is suited 
for very simple pieces of work. 

(Seesof, P.O. Box 574, Beaufort, SC 29901, 
803-524-0116; S14.95: First product review 
for this company appearing in THE RAIN- 
BOW) 

— David C. Barry Jr. 
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Leonardo's Pencil — 
Draw Special 
Graphics 

Leonardo 's Pencil is a BASIC program 
that lets you create very detailed graph- 
ics. It also converts your picture into a 
stand-alone BASIC program you can 
save to tape or disk for later use. 

After you load and run the program, 
you must center the joystick (your 
drawing tool). Once this is accom- 
plished, press the firebutton to see the 
go-ahead message. Type RUN and press 
ENTER, and you see the title screen of 
the program. Pressing any key on the 
keyboard or the firebutton brings up the 
drawing board. Written across the 
bottom of the board is a list of options: 
Keys, Speed, Erase, Undo, Test, Basic, 
Hcopy and Art. The first option shows 
which keys and what direction they 
move the cursor. You can select the 
drawing Speed (slow or fast); Erase a 
drawing; back up and erase the previous 
move with Undo; have the computer 
draw your graphic with Test; save your 
graphic as a stand-alone BASIC pro- 
gram; get a Hard copy of the BASIC 
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commands used in your graphic; or load 
a previously created graphic to edit with 
the Art option. 

If you are using the joystick to make 
your drawing, move the cursor with the 
lever, and press the firebutton when you 
want to draw a line. When using the 
keyboard as your drawing tool, you can 
do exact, one-pixel-at-a-time drawings. 
Using one of the eight directional keys 
allows you to move the cursor one pixel 
up. down, left, right or any of the four 
diagonals. Pressing ENTER draws a line. 

To load a graphics screen to be used 
with the Art option, you must first save 
the BASIC program in the binary format. 
The instructions are very well-written 
on this point, but I misread this part and 
couldn't get the graphics program to 
load back into Leonardo's Pencil locdh 
it. I called James M. Bennett, who 
developed the program, and he pa- 
tiently explained the procedure to me. 
This was impressive, because one of the 
main things 1 look for when I buy 
software is after-sale support. 

There is a second program included 
called Paint. With this program you can 
have your computer write routines for 
coloring the outline drawings you have 
created with Leonardo's Pencil. When 
you have colored your picture, you can 
save the program in BASIC. This will not 
be a stand-alone program so you will 
have to merge it with a drawing pro- 
gram preceeding it. 




Jim has suggested you make a draw- 
ing with a felt marker on clear plastic 
wrap and tape it to your monitor. This 
way you can simply trace the drawing. 
Jim included a demonstration program 
on the cassette version and it really 
shows what you can draw using this 
program! 1 have been using Leonardo's 
Pencil since 1 received it for review, and 
although I am not very good at drawing 
with the joystick, I was able to draw a 
very respectable bear using the key- 
board. 

I am very impressed with the ease of 
operation and user-friendliness of this 
program. The instruction manual is 



well-written and easy to understand. I 
would certainly recommend Leonardo s 
Pencil for anyone who would like to be 
able to create special graphics. 

(E.Z. Friendly Software, 1308 Belmont 
Ave., Front Royal, VA 22630, 703-635- 
1354; Tape S10.95; Disk S12.95 plus S1.50 
S/H: First product review for lhis company 
appearing in THE RAINBOW) 

— John H. Appel 
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Polytint — 
Changes Palette 
Colors 

With so many new features to play 
with, it was only a matter of time before 
CoCo 3 products that use those features 
hit the market. Polytint is just such a 
program, designed to copy PMODE 3 or 
4 images to the Hi-Res 16-color screen. 
On that screen, you can modify the 
image by changing colors to any 16 you 
select from the 64 possible choices. 

The program performs as advertised. 
Images are quickly transferred to the 
left four-fifths of the Hi-Res screen from 
your disk. The right fifth is dedicated to 
a box showing the 16 available colors 
and offering instructions on how to 
proceed. A lot of time and effort went 
into this program, and it shows in the 
fine online help it offers. 

First up when running the program 
is a menu that lets you choose between 
loading and coloring a new image or 
looking at a previously colored image. 
For now, we will choose the first — load 
and color. You are prompted for a 
filename (the extension .BIN is as- 
sumed as this is a disk-only program) 
and the file is loaded. It takes about 
three seconds to move the image to the 
Hi-Res screen. The picture appears on 
the left four-fifths with the right fifth 
displaying your palette. 

Now, you can begin to change palette 
colors to suit your taste. Color selection 
is made by positioning the cursor in 
front of a palette box (using the up or 
down arrow keys) and entering the 
numeric value desired for that slot. The 
small box displays the color you se- 
lected and you can proceed to the next 
slot or change this slot again. You might 
want to use one of the fine public 
domain programs to familiarize your- 
self with the colors and their values, as 
stepping through the other 48 values to 
find 16 you like can take some time. 









Computer Island Educational Software 



CLOSEOUT - LIMITED TIME ONLY' 3 SUNBURST FAVORITES 

REGULARLY 144.95 EACH 

NOW AT SPECIAL CLOSEOUT PRICING 

WHILE SUPPLIES LAST 

1 FOR $30 2 for $50 
All 3 for $65 



THE POND 
Lead the frog 
across the pond 
in the fewest 
moves. 6 levels. 
Grade 2 - adult. 



THE FACTORY 

3 level program 
chal lenges users 
to create geo- 
metric items on 
a user designed 
machine. Grade 

4 - adult. 

TEASERS BY TOBBS 
Solve math puzsles 
on a grid. Tricky 
and chal lengmg 
on 6 levels. 
Grade 2 - adul I . 
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3 NEW PRODUCTS FOR YOUR 
COCO 3 AND RGB MONITOR 



NAME THAT FLAG 

Identify the flag 
and the country j't 
represents, fest 
your knowledge. 
Beautiful hi-res 
graphics. 



PEG OF NY HEART 

Fit pegs into the 
right place. Visual 
perception game. 
Multilevel - 6 to 
adult. Graphics 
galore.' Joystick 
or arrow keys. 



COCOWEEL OF FORWNE 
COCO 3 VERSION 

A new version of this 
popular favorite that 
takes advantage of 
the special features 
of the Coco J and RGS 
monitor. As beautiful 
as i t is enjoyable ' 



AUTUMN 
SPECIAL 

Tape or Disk 

1 for $20 

2 for $30 

3 for $40 



SUPER SOFTWARE SPECIALS 



SEND FOR A FREE CATALOG OF 
OVER 75 EDUCATIONAL PROGRAMS. 



TAKE 25% OFF PRICES LISTED 
BELOW. GOOD UNTIL 10/31/87 
DISK ONLY! 



TITLE 



GRADE 



PRICE 



Dollars & Sense 


2-4 


$19.95 


McCoco's Menu 


3-6 


19.95 


Mathquiz 


2-6 


19.95 


Area & Perimeter 


5-7 


24.95 


Sales & Bargains 


5-7 


24.95 


Distance Problem 


5-7 


24.95 


Comparison Shop. 


3-6 


24.95 


Number Sequences 


5-7 


24.95 


Signed Numbers 


6-8 


24.95 


Bank Account 


4-7 


24.95 


Pizza Game 


4-6 


24.95 


Binary Game 


6-8 


24.95 


Street Map Game 


3-6 


24.95 


French Baseball 


all 


24.95 


Spanish Baseball 


all 


24.95 



FREE GIFT WITH 

ORDERS OF TWO 

OR MORE ITEMS 




227 Hampton Green 
Staten Island, N.Y. 10312 

(718) 948-2748 

Please include $1.00 postage 
per order. NY residents, please 
add proper sales tax. Visa and 
MasterCard accepted. Payments 
in U.S. funds only. 




After color selection is complete, you 
can start coloring your picture. The 
cursor is placed in the first area avail- 
able for coloring and can now be ma- 
nipulated with the right and left arrow 
keys. The cursor appears as a small 
flashing graphics block. Color selection 
is made by entering the palette slot 
desired. The slots and their colors are 
still on display on the right fifth. When 
ENTER is pressed, the area is colored. 
Press one of the arrow keys to move on 
to the next area to color. It's that simple. 

When you have finished coloring 
your picture, you can save the image or 
recolor any portion of the picture. This 
program was written before the advent 
of editors such as Color Max 3, so the 
save is not in a true Hi-Res format. It 
is quite ingenious, though. The regular 
PMODE 3 or 4 screen is saved, with the 
palette values, X and Y coordinates for 
painting and the paint value, appended 
to the end of the image. Thus, a fairly 
complex image (requiring many places 
io be painted) takes more disk space 
than a rather simple image. 

The other option on start-up is to 
view a picture already colored. This 
option loads the image, copies it to the 
Hi-Res screen and colors it. You may 
then observe the picture. When you are 
through looking it over, you return to 
the main menu and can either look at 
another picture or start coloring 
another image. 

A second program is included that 
enables you to add on to the Hi-Res 
screen. Once an image is loaded and 
colored, press the BREAK key and exit 
the main program. Then run the second 
program (called ADD ITS), which clears 
the color block from the right fifth of 
the screen. By adding BASIC statements 
to the RDDITS program (the manual 
tells you how), you can use that right 
fifth and add anything to the picture - 
or, if you want, you can add anything 
to the left four-fifths, as well. 

While you can save the updated 
image, the manual advises you to save 
your own version of the ADDIT5 pro- 
gram to conserve disk space. The next 
time you want to view that picture, you 
follow the procedures above, substitut- 
ing the name of your custom version of 
the ADD ITS program. 

There are a few very minor Haws in 
the program, but some of these cannot 
be helped. One such flaw is that ex- 
tremely complex images cannot be 
loaded as there are too many paint 
locations. The manual warns about this 
problem, although I couldn't find an 
image that wouldn't work. You are 
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allowed up to 2,047 different paint 
locations, more than enough for the 
average picture. Another problem is the 
size of the paint cursor. Although it 
flashes, it is still very small and difficult 
to find on occasion. A small plus sym- 
bol (+) would better suit the purpose. 

The last problem is something thai 
may be ongoing trouble. Because there 
is no real standard for saving Hi-Res 
screens (yet), the method used works. 
When a standard is adopted by the 
CoCo community, though, it is my 
suggestion that the program be changed 
to reflect that standard and to make il 
compatible with what I am sure will be 
a flood of other programs. 

All in all, Polytint is a fine program. 
The manual is very clear and not too 
technical. You have not just one, but 
four different examples to play with. 
The program is virtually "goof-proof." 
The price makes it one of the CoCo 3 
bargains. 

(Boiling Spring Lakes Software. P.O. Box 
2536 B.S.I.., Southport, NC 28461,919-845- 
2881; $17.50 plus $1.50 S/H: First product 
review for this company appearing in run 

RAINBOW) 

— I). A. Kerrcira 
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Art-Deli — 

A Smorgasbord 

of Images 

As editor of your club's newsletter, 
you find yourself in somewhat of a jam. 
The Christmas edition is due in the mail 
in three days and you don't have a nice 
picture for the cover. There isn't enough 
time to create your own, and everyone 
has seen the picture you used last year. 




This is where Art-Deli comes to the 
rescue. The package consists of 10 
double-sided disks with a total of 440 
different pictures. They are all PM0DE4 



black and white images, and most are 
printer-ready. 

All of the images are high quality. 
They load easily into your favorite 
graphics editor. This is beneficial, as 
there are a few pictures that require 
some sort of text or other addition. Be 
warned, though — the pictures are not 
meant to be colored. You may add a 
background color to most, but given the 
nature of the digitized images, even that 
may require work (such as closing off 
areas you don't want painted). 

Almost all of the pictures are ready 
to go as-is, though. And if you don't 
have access to a graphics editor 
(Mc Paint, CoCo Max, Graphicom, 
etc.), never fear. A utility is provided 
that allows you to view all the pictures 
on the disk. Once loaded, any screen 
dump that works with your printer will 
do the trick. 

The cost may be a little prohibitive 
for the average club, so there is an 
option that allows you to buy one 
double-sided disk at a time. A single 
disk gives you 44 pictures with the 
following titles: Travel, Pets, Christmas 
1 & 2, Halloween, Thanksgiving, Win- 
ter, New Year, Patriotic, Creative Art, 
People I & 2, Spring, Summer, Easter, 
Valentines, Sports, Fun Sports, Food, 
and the ever popular Miscellaneous. 
When ordering the single disk, you can 
specify any two of the above titles. 

Finances permitting, the way to go is 
to purchase the full set. There are more 
than enough pictures to justify the cost. 
Also, when purchasing the full set, a 
book showing the entire gamut of 
available images is included, thus saving 
the tedium of looking through each disk 
for just the right picture. 

In short, Art-Deli is the perfect re- 
source for the newsletter editor, club 
leader or anyone who organizes activ- 
ities. The package is a virtual smorgas- 
bord of images for special occasions. 

(Specially Projects, 4810 McCrory, Mem- 
phis, TN 38122, 901-682-8737; $12.95 per 
disk; $99.95 for the set plus $3 S/H: First 
product review for this company appearing 
in THE RAINBOW) 

— D.A. Ferreira 
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Scan and Restorit — 
Recovers Lost Files 

Scan is a program designed to scan 
a binary file and display to the screen 
and/ or printer any ASCII sequences 



that it finds. The author mentions one 
intended usage of Scan, that of finding 
the right command to use in an Adven- 
ture game. 

The program is distributed in unpro- 
tected form on disk and requires at least 
32K of memory in which to operate. It 
is loaded into the computer with the 
LORDN command from BASIC. 

Scan is a machine language utility 
that contains its own disk module, 
presumably for purposes of indepen- 
dence from the various incompatibili- 
ties between several of the alternative 
disk ROMs in use. It is invoked with a 
command line from BASIC in the form 
of EXEC filename, ext >DEV. The >DEV 
parameter, if replaced with >PRN, will 
route all output to the printer. If left 
blank, output will be sent to the screen. 

The special command EXEC'VER 
would not work. However, most people 
would not be too concerned with which 
version of the program is in use, so I 
don't feel this deficiency is of major 
importance. 

Scan worked well when tested on 
several M/L files. It displays only the 
ASCII codes within a file, and this 
could be an attractive feature when 
scanning Adventure games. I think that 
Scan belongs with every true Adventure 
gamer. It is also a convenient, clever 
utility for the curious. 

Restorii is a program designed to aid 
the novice user in restoring text files 
that have been made unreadable for 
some reason. It is in the form of a BASIC 
program made to "look like" a machine 
language program in that it is loaded 
into the computer with the LORDM 
command. Restorii will scan an entire 
text file in search of the readable por- 
tions. The program is capable of detect- 
ing if a file is intact and correctly 
structured. If a file is determined to be 
Hawed, then a new file is written to disk 



with the extension RES. Portions not 
readable are marked within the new file. 
This allows recovery of as much of the 
original file as possible. Both single- and 
multiple-drive systems are supported. 

The author of Restorii realized that 
many folks will not have an unreadable 
disk file available, so he provided a 
special modifier program. I did most of 
my testing with the Restorii program 
merged with the special program called 
RESTDR.TST, which modifies the main 
program to report disk errors when 
none actually exist. 

Restorit displays a binary representa- 
tion of the file in the top half of the 
screen as it is being restored. The 
bottom half of the screen contains a 
status display, such as line numbers and 
sector numbers of the input file. 

1 encountered IE and FC Errors while 
using Restorit. These errors came from 
BASIC and indicate that a few problem 
areas remain in the program. A bit more 
attention to error trapping and recovery 
is probably all that is needed. 

The documentation and miscellane- 
ous disk files could use a minor amount 
of attention. For instance, the 
RDOC.DRT file is a small text file that is 
almost the same as the printed docu- 
mentation, yet two different individu- 
als, addresses and phone numbers are 
supplied in case the user has questions 
about the product. Also, the BASIC 
program called RUNTHI5.BR5 (which 
prints the RDOC.DRT file) should have 
been four lines in length, yet it had an 
earlier version of the Restorii program 
appended to it, which increased the 
apparent size of the program to four 
grans. These are minor points and are 
probably indicative of some last minute 
changes by the program's author. 

However, Restorii could be a valua- 
ble utility for many users. After all, if 
it saves just one file, it may well be worth 



its initial cost. The author states that the 
loss of a file representing three months 
of work was the reason Restorit was 
written. 

(Semmesoft, 10 Slrawhat Road, #2A, Ow- 
ings Mills, MD 21117. $21.95 each: First 
product review for this company appearing 
in mi: uainbow) 

— Don Hutchison 
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Super Tape/ Disk 
Transfer — Simple 
and Useful 

Super Tape/ Disk Transfer is a collec- 
tion of useful I/O utilities fortheCoCo 
user. It features menu options that 
provide the following transfers: 

Disk To Disk Copy backs up your 
disk in one to three swaps instead of the 
usual six to seven. It also works on 
multiple drive systems. 

Disk to Tape Copy archives yourdisk 
onto cassette tape. Each disk file is 
displayed and can be copied to tape or 
bypassed. ML starting, ending and 
execution addresses will be displayed. 

Tape To Disk Copy reads your favor- 
ite programs from tape to disk. Each 
tape file is read into the computer, and 
you are given the opportunity to save it 
to disk or ignore it. 

Tape To Disk Copy Automatic Re- 
locate lets you copy all of the files on 
tape to disk without prompting. It also 
automatically relocates any ML pro- 
gram with starting addresses between 
1 536 and 3584 to 3584 in order to avoid 
conflict with disk memory. 



POLYTINT converts your disk-saved CoCo 1 or 2 pictures to CoCo 3 format and gives you a fast, 
friendly way to recolor them in any 16 colors of your choice. Your new masterpieces will be 
saved in far less disk space then usual. See Rainbow Review Oct. 1987. 



Requires CoCo 3. disk drive, RGB monitor preferred. 

Order from: BOILING SPRING LAKES SOFTWARE 
P.O. Box 2536, BSL 
Southport, NC 28461 
Telephone: (919) 845-2881 

Money order or check: $1 7.50 plus $1 .50 postage and handling. 
NC Residents please add 5% sales tax. 
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Tape To Tape Copy prompts you as 
it reads each tape file lo copy to another 
tape. 

There arc a couple of features I liked 
about this program. The program will 
not crash if it encounters an I/O Error. 
Instead il issues an error warning and 
just restarts. This can be a real help on 
those tapes or disks that are partially 
bad. Another special feature is that you 
can copy DATA files as well. 



(Microcom Software, P.O. Box 214, Fair- 
port, NY 14450. 716-223-1477; Disk. S24.95 
plusS3S/H) 



— David Gerald 
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Gates of Delirium — 
Fantasy Role Playing 

As you enter the dungeon, fear creeps 
up your spine. You, Orniix the wizard, 
along with Gazer the Cleric and Sheena 
the fighter, move stealthily through the 
myriad passages hoping to find some 
clue or artifact (or at least a little gold) 
lo help you on your quest. You suddenly 
come face to face with a band of ske- 
letons. Already weak from past fights, 
you realize this might be it. As you enter 
into combat, you know that at least you 
will go down lighting! 

Gates of Delirium, a new graphics 
adventure/ fantasy Simulation by Die- 
corn products is another attempl lo 
mimic fantasy role-playing games on 
the computer. Yet, this is the closest and 
besl done rendition 1 have seen for the 
Color Computer lo date. It is basically 
a conversion of similar games available 
on other computers, but I believe that 
Roland Knight. Dave Shewchun and 
Dave Dies have done the CoCo Com- 
munity a great favor by producing 
Gales. 

The premise of Gales is this: You 
enter the ancient and extensive land of 
Gates alone, with no knowledge of a 
purpose, only the need to add other 
people to your group and survive. In 
your adventures, you enter cities, castles 
and dungeons. You attempt to find I he 
mystic lunar gates and transport your- 
self to a more fruitful land. You will 
tight skeletons, trolls, thieves, wizards, 
and many horrible monsters. 

The game comes with two disks. The 
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game disk is copy-protected and Die- 
com will replace it within one year of 
purchase if anything goes wrong. It is 
important you make a copy of the 
player disk (which is not copy- 
protected) and use it, for the disk is 
continually updated during play. Also 
included are 1 4 pages of documenta- 
tion, with a page of corrections and 
additions, and the "Ancient Map of the 
Land of Gates." 

You start the Adventure by generat- 
ing a character. This is done by choosing 
a class or profession (such as a fighter 
or a cleric) and a race (such as human 
or elven). You then divide up 50 points 
into four areas: Strength, Dexterity, 
Intelligence and Wisdom. The more 
points you put into an attribute, the 
better you are in that area. For example, 
a fighter would want to maximize his 
strength since he specializes in fighting. 
A thief might want to put extra points 
into dexterity since his profession relies 
on quickness and agility (not lo mention 
his ability to swipe chests of gold under- 
ncalh the noses of the town guards). A 
cleric or holy man would want high 
wisdom, and a wizard high intelligence 
as these attributes affect spell-casting 
ability. The race you choose sets the 
limits of how many points you can 
eventually fit into each category (you 
must start out with a minimum of 5 in 
each slot and a maximum of 25). The 
documentation covering this is fairly 
well-done, but is poorly typeset, which 
might possibly confuse the reader. After 
a little examination, you should be able 
to divine the correct procedure. One of 
the little pleasures of this game is thai 
you need go through this task only once. 
fhe master program automatically 
scans the playerdisktosee if a character 
has been generated and, if found, starts 
the game near where the player last left 
off. 

The documentation is intentionally 
brief. This is to prevent the player from 
learning too much before starting the 
Adventure and, thereby, spoiling the 
fun of discovery. I believe it could have 
been more complete without risking the 
fun or mystery of the game. A minor 
background could have been intro- 
duced that would have given the player 
some purpose, and the text itself could 
have been greatly expanded. Things 
such as weapon and armor limitations 
for class have been incorporated into 
the game but left out of the directions. 
This is discouraging when you've just 
bought a sling for your cleric only to 
find he can't use it. An experienced role- 
player could be expected to know these 



things, but a player with little or no 
knowledge will have some difficulty. 
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The game board itself is a graphics 
display of the character and his/her 
companions and their surroundings. 
The game uses what it terms "shadow- 
ing," that is, showing basically only 
what the character can see, and hiding 
thai which is hidden (usually by moun- 
tains or walls). This effect and the 
animation present in the graphics takes 
any tedium out of the play. The graphics 
are a pleasure to watch. The sound 
effects are complimentary, not compet- 
itive (but even these can be turned off). 
The character and his party always stay 
in the middle of the graphic display as 
the countryside scrolls around them. In 
the upper right-hand corner is a box 
thai shows the members of your group 
and how healthy they aie. I he lower 
right-hand area is laken up by the 
"dialogue box." It displays the com- 
mands entered and any responses and 
messages. 

The game play itself is controlled via 
approximately 22 one-key commands 
with other commands that must be 
typed in. These one-key commands and 
auto-repeat-on-movement keys make 
playing relatively easy once the com- 
mands are mastered. They consist of the 
arrow keys for north, south, east and 
west and other manipulative commands 
such as Open, Steal and Transact. The 
lyped-in commands must be learned 
during the course of play. 

Combat is handled by switching to a 
different combat screen thai cannot be 
left unless either you or your opponent 
is dead. Retreat is not an option. Nor 
is running from a monster once it has 
locked onto you. Here, you and your 
party move around the screen or attack 
one at a time and, at the end of every-' 
one's turn, the monsters may also move 
or attack. It progresses in this series 
until the eventual conclusion. One can 
learn lo predict the movement of the 
monsters, however, and use that knowl- 
edge to help defeat the enemy. 

One minor irritation I had with the 
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CBASIC III EDITOR/COMPILER 

The ULTIMATE Color Computer HI Basic Compiler!!! 

If you warn to write fast efficient machine language programs and you 
lon't want to spend the next few years trying to learn how to write them in 
\ssembly language or with a cheap compiler, then CBASIC III is the answer!!! 

CBASIC III is the only fully integrated Basic Compiler and Program 
Editing System available for the Color Computer 3. It will allow you to take 
full advantage of all the capabilities available in your CoCo-3 including 51 2K 
RAM. without having to spend years trying to learn assembly language 
programming. CBASIC III allows you to create, edit and convert programs 
from a language you are already familiar with Enhanced Disk Color Basic, into 
fast efficient machine language programs easily and quickly. CBASIC III 
supports all the enhanced hardware available in the CoCo-3. including Hi-Res 
Graphics & Screen displays. Extended Memory and Interrupts (Keyboard, 
rimer. Serial & Clock). We even added advanced commands not available in 
Basic to give you a level of control only available to very advanced Machine 
Language Programmers. Plus we made it exceptionally easy to use. not like 
some other compilers. CBASIC III is the friendliest and easiest compiler 
available for the Color Computer III. 

CBASIC III is a powerful tool for the Beginner as well as the Advanced 
Basic or Machine Language programmer. You can write programs without 
having to worry about the Stack. DP Register, memory allocation and so on. 
because CBASIC III will handle it for you automatically. For Advanced users. 
CBASIC III will let you control every aspect of your program, even generating 
machine code directly in a program easily. 

CBASIC III features well over 150 Compiled Basic Commands and 
Functions that fully support Disk Sequential and Direct access files. Tape. 
Printer and Screen I/O. It supports ALL the High and Low Resolution 
Graphics. Sound. Plav and String Operations available in Enhanced Color 
Basic, including Graphics H/GET. H/PUT. H/PLAY and H/DRAVV. all with 
99.9% syntax compatibility. CBASIC III also supports the built in Serial I/O 
port with separate programmable printer & serial I/O baud rates. You can 
send and receive data with easy to use PRINT. INPUT. IN'KEY. GETCHAR 
and PUTCHAR commands. 

CBASIC makes full use of the powerful and flexible GIMI chip in the Color 
Computer 3. It will fully utilize the 128K of RAM available and install 2 Ultra 
Fast Ramdisks if 512K is available, for program Creation. Editing and 
Compilation. You can easily access all 512K of memory in a Compiled 
program thru several extended memory' commands that can access it in 32K or 
8K blocks and single or double bytes. 

CBASIC has its own completely integrated Basic Program Editor which 
allows you to load, edit or create programs for the compiler. It is a full 
featured editor designed specifically for writing and editing Basic programs. It 
has block move & copy, program renumbering, automatic line numbers, screen 
editing, printer control and much more. 

The documentation provided with CBASIC III is an 8 1/2 by 11 Spiral 
Bound book which contains approximatly 120 pages of real information. We 
went to great lengths to provide a manual that is not only easy to use and 
understand, but complete and comprehensive enough for even the most 
sophisticated user. 

CBASIC III is the most expensive Color Basic Compiler on the market, and 
well worth the investment. You can buy a less expensive compiler for your 
CoCo-3, and then find out how difficult it is to use, or how limited its features 
are. Then you'll wish you had bought CBASIC III in the first place. Dollar for 
dollar. CBASIC III gives you more than any other compiler available. If you 
can find a better CoCo-3 Basic Compiler then buy it!!! 

Requires 128/512K & Disk $149.00 

DATAPACKIII PLUS V1.1 

SUPER SMART TERMINAL PROGRAM 

AUTOPILOT & AUTO-LOG PROCESSORS 

X-MODEM DIRECT DISK FILE TRANSFER 

VT-100 & VT-52 TERMINAL EMULATION 

' No lost data even at 2400 Baud on the COCO-3 Serial I/O port. 

• 8 Display Formats. 32/40/64/80 columns at 192 or 225 Res. 

• 50K Text Buffer when using the Hi-Res Text Display and Disk. 

• ASCII & BINARY disk file transfer support via XMODEM. 

• Directly record receive data to a disk file (Data Logging). 

" VT-100 terminal emulation for VAX. UNIX and other systems. 

• VT-100/52 cursor keys, position, insert/delete. PF & Alt. keys. 
" Programmable Word Length. Parity. Stop Bits and baud rates. 

• Complete Full and Half Duplex operation, with no garbled data. 

• Send full 128 character set from Keyboard with control codes. 
" Complete Editor. Insert. Delete. Change or Add to Buffer. 

• 9 Variable length. Programmable Macro Key buffers. 

• Programmable Printer rates from 110 to 9600 Baud. 

• Send Files directly from the Buffer. Macro Keys or Disk. 
" Display on Screen or Print the contents of the Buffer. 

• Freeze Display & Review information On line with no data loss. 
" Built in Command Menu (Help) Display. 

■ Built in 2 Drive RAMDISK for 512K RAM support and much more. 

Supports: R.S. Modcm-Pak & Deluxe RS-232 Pak. even with Disk. 
Requires 128/512K & Disk, Only $59.95 



TEXTPRO IV 

"The Advanced Word Processing System" 

• 9 Hi-Res Displays from 58 to 212 columns by 24 lines in 225 Rcsolutior 

• On Screen Display of Bold. Italic. Underline & Double Width print. 
" Up to 8 Proportional Characters Sets Supported with Justification. 

' Up to 80 Programmable Function keys & loadable Function key sets. 

• Fully Buffered keyboard accepts data even during disk access. 

• Autoexecute Startup files for easy printer & system configuration. 

" 8 Pre-Defined Printer function commands & 10 Programmable ones. 

• Supports Library files for unlimited printing & configurations. 

" Disk file record access for MAIL MERGE & BOIUER PLATE printing. 
" Completely Automatic Justification. Centering. Flush left and right. 
" Change indents, margins, line length, etc. anytime in the text. 

• Create and Edit files larger than memory, up to a full disk. 

" Easily imbed any number of printer format and control codes. 

• Built in Ultra Fast 2 drive RAMDISK for 512K support. 
TEXTPRO IV is an advanced word processing system designed for speed. 

flcxabilily and extensive document processing. It is not like most of the other 
word processing programs available for the Color Computer. If you arc 
looking for a simple word processor to write letters or other short documents, 
then most likely you'll be better off with one of the other simpler word 
processors. But. if you want a powerful word processor with extensive 
document formatting features to handle large documents, term papers, 
manuals, complex formating problems and letter writing, then TEXTPRO IV 
is what your looking for. TEXTPRO IV works in a totally different way than 
most word processing programs. It uses simple 2 character abbreviations of 
words or phrases for commands and formatting information that you imbed 
directly in your text. There are over 70 different formatting commands you 
can use without ever leaving the text your working on. There are no time 
comsuming, and often furstrating menu chases, you arc in total control at all 
times. You can see what the formatted document will look like before a single 
word is ever printed. This includes margins, headers, footers, page numbers, 
page breaks, column formating, justification and Bold. Italic. Underline and 
Double Width characters right on the screen. 

TEXTPRO IV can even support LASER PRINTERS with proportional 
fonts, take a good look at this AD? It was done with TEXTPRO IV on an 
OKI DATA LASERLINE-6 laser printer!!! All the character sets used on this 
AD are proportional spaced characters, all centering, justification, and text 
printing was performed automatically by TEXTPRO IV. 
Requires 128/512K & Disk $89.95 

HI-RES III Screen Commander 

The display vou wanted but didn't net on your CoCo-3. 

• 54 Different Character Sizes available 14 to 212 cpl. 

• Bold. Italic or Plain character styles. 

• Double Width. Double Height and Quad Width characters. 

• Scroll Protect from 1 to 23 lines on the screen. 

• Mixed Text & Graphics in HSCREEN3 mode. 

• PRINT (a available in all character sizes. 

• Programmable Automatic Key repeal. 

• Full Control Code Keyboard supported. 

• Selectable Character & Background color. 

• Uses only 4K of Extended or Basic RAM. 

• Written in Ultra Fast Machine Language. 

HI-RES III will improve the standard display capabilities of the Color 
Computer 3. even the 40 and 80 column displays have several features missing. 
For example you can't use PRINT (5 or have different character sizes on the 
same screen, even mixing text and graphics with the HPRINT command leaves 
a lot to be desired. HI-RES 111 can give you the kind of display capabilities 
you always dreamed about having on your color computer but didn't get with 
your COCO-3. Well now it's here and with a wide variety of display options 
that you can easily use with your Basic or ML programs. 
HI-RES III is totally compatible with Enhanced Color Basic and its operation 
is invisible to Basic. It simply replaces the normal screen display with an 
extremely versatile display package. It also overcomes some of the 
disadvantages found when using the Width 40 & 80 screens. You can use the 
Print (5 function on any line length with HI-RES III. It also gives you a 
programmable automatic key repeat that can be very handy Cor ediling, youv 
Basic programs. Automatic key repeal can be adjusted from ultra fast to super 
slow and can be disabled entirely if desired. You also get a full control code 
keyboard using the 'CTRL" key. So many of HI-RES Ill's extended functions 
can be controlled directly from the keyboard easily. With just a couple of 
simple keystrokes you can change character sizes and styles at any time. 
Requires 128/512K Tape or Disk $34.95 
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purchase, plus S3.00 for shipping & handling to the address below. 
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game was the fact it locks up if everyone 
in the party dies (and this tends to 
happen quite a lot early in your career). 
This necessitates rebooting the whole 
game, which gets a little tedious. If you 
have two drives, it is not as time con- 
suming because you can keep the main 
disk in Drive and the player disk in 
Drive I . This eliminates switching disks 
all the time. 

I have to conclude by restating that 
Gates of Delirium, in my opinion, 
despite minor problems, is one of the 
finest and most professional conver- 
sions of fantasy role playing games 
available for the Color Computer. It is 
exciting, extensive, and pleasing to the 
eye. 

(Diecom Products, 6715 Fifth Line, Ontar- 
io, Canada L9T 2X8, 416-878-8358; $38.95 
U.S.; $52.95 CDN) 

— Glen Dahlgren 
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CoCo 1,2 & 3 



Stock Market 
Portfolio — 
Track Your 
Performance 

With all of the interest in the stock 
market these days, the investor needs a 
means of keeping track of his invest- 
ments. Are you making money on your 
portfolio? Are you keeping track so you 
can pay Uncle Sam his share of your 
profits'? Slock Market Portfolio is a 
program that can help you in these 
matters, using the faithful CoCo. 

Stock Market Portfolio is designed to 
keep track of all your current stock 
holdings and to keep a listing of stocks 
you have sold by year. It also maintains 
a tally of your total investment and the 
amount of profit or loss you have at the 
moment. 

The manual supplied with the pro- 
gram is clear and easy to follow. It 
contains three major programs: Setup, 
Current Stock List and Stocks Sold. It 
also contains sample printouts of the 
two stock programs. 

The Setup program creates the files 
that will be stored and maintained on 
the program disk. Several people can 
create files that will be maintained 
simultaneously. The program calls for a 
first and last name for the file, which 



provides access for future activities. The 
Setup program also allows for changes 
in information as required. One of 
Setup's features is the input of a "Stop 
Loss Percentage."This is a fixed percent 
of the cost of a slock that, when sub- 
tracted from the cost, represents the 
selling price you would use to prevent 
losses on the down side. The program 
uses this stop loss feature against the 
original purchase price. 1 would suggest 
to the author that it be modified to be 
a percentage of the current quoted 
price, which is representative of a 
realistic situation to protect profits or 
minimize losses. 

The Current Stock List program is 
designed to be a file of all stocks cur- 
rently held. The menu asks for such 
information as Ticker Code, Stock 
Name, Number of Shares Held. Date 
Bought, Purchase Price and Current 
Price. Information can be easily 
changed, and you can review your entire 
holdings either on the screen or printer. 
The current price of stocks in this 
program can be updated by using the 
Change Current Stock Price option on 
the menu. This program also provides 
a summation of the entire portfolio 
showing the total cost, current value, 
profit or loss total, and percentage of 
profit or loss. When a stock is sold, it 
can be transferred to the Stocks Sold 
program. The program accomplishes 
this transfer when you change the status 
from B (bought) to S (sold). The capac- 
ity of this program appears to be very 
large, certainly more than a typical 
investor may have in his portfolio. 

The Slocks Sold program maintains 
files on stocks that have been sold by 
year of sale. This is particularly useful 
at income tax time, because it provides 
all the information required for your 
IRS return by year. Again, you can 
change information if necessary and can 
review the entire file on the screen or 
printer. This program also provides a 
summation of total portfolio cost, total 
sale price and total profit or loss in 
dollars and percent. You should note 
that to obtain true profit or loss, the 
actual price per share, including broker 
commissions, should be used. 

The program also handles dividends 
by requesting the annual dividend by 
year, showing the dividend as a percent 
of purchase price, and showing the total 
dividend per year for the number of 
shares held. This is useful in reporting 
dividend earnings to the IRS by year. 

I would not hesitate to recommend 
Stock Market Portfolio to any serious 
stock market investor or to amateurs 



who want to follow the market on 
paper. The program is easy to use, and 
it provides a good picture of your 
current portfolio and your transaction 
history by the year. 

(Paparis Enterprises, Inc., 700 York Street, 
Williamsburg, VA 23185; S22 plus S3 S/H: 
First product review for this company 
appearing in THE RAINBOW) 

— Mel Sicgcl 



1 Software 



CoCo3 



TW-80 — A CoCo 3 
Telewriter -64 
Enhancer 

I don't often gel a chance to review 
software that really gets me fired up. but 
that's just what happened when I 
opened the package containing a new 
program from Doug Masten. I have 
written many reviews using TW-64 and 
its various enhancements which made it 
a delight to use on the CoCo I and 2. 
Now I have the pleasure of reviewing an 
enhancement for the CoCo 3. 

Besides a Color Computer 3 with at 
least I28K of RAM, this enhancement 
requires one disk drive and an unmod- 
ified version of TW-64. If you have 
5 1 2K, you will also be able to utilize the 
built-in RAM Disk feature. 

After you have backed up your new 
TW-80 disk, you're all set to install the 
software. This is very easy to do, and the 
six-page instruction booklet explains 
each step. The documentation also 
explains how to use the new features of 
the program. When this is all done, TW- 
64 with the TW-80 enhancement is 
booted up using the familiar LOflDfT'T" 
ENTER, but that is where the similarity 
ends. TW-80 is written specifically for 
the CoCo 3, and the new features are 
truly outstanding. 

The first thing you'll notice is a clean, 
uncluttered main menu. 

All of the options work the same as 
on the previous versions, but there are 
some differences. One of the most 
obvious is a reverse video (black on 
while) status line at the bottom of the 
screen. This line shows you al a glance 
the current cursor position as a line and 
column number. Insert or overstrike 
modes are displayed and can be toggled 
using the CTRl.-O key. Also indicated is 
whether or not Wordwrap is on or off 
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and the name of the file you are reading. 
Memory available for text is displayed 
and counts down as you type. On my 
512K CoCo 3, this number was 45056. 
or just over 45 K of text space available 
in an empty buffer. The program de- 
faults to 80-characters per line with 
white letters on a jet-black background. 
The filename is displayed in the status 
line. 

A program called CONFIG. BBS is 
included on the disk and lets you change 
all of the default parameters in the 
program such as screen and text color, 
key click and repeat rate, disk drive 
stepping rate, and printer format. 

The displayed text with true lower- 
case letters with descenders is very easy 
to read on my CM-8 RGB monitor. Six 
available screen fonts are included on 
the disk, but changing them is some- 
what of a pain in the neck; so once you 
choose your favorite, you won't want to 
change often. Because each font is 
unique in style and image quality, I 
ended up making a TW-80 disk for each 
one. Now all 1 have to do is load in the 
TW-80 disk with the particular font 
style I'm in the mood for. I was delight- 
ed with all the fonts. They are a big 
improvement over the 80-column text 
contained in CoCo 3's ROM. I can 
clearly see all three top points in the 
lowercase 'w'. 

The added CoCo 3 control and ALT 
keys are also supported. The ALT key 
used with four other characters yields 
left and right brackets and braces. 
Visible carriage returns are also avail- 
able and are a big help when setting up 
columns. 

The Disk I/O menu is clean and neat 
looking and contains the two columns 
of commands. The most noticeable 
change in these commands is evident 
when selecting Read, Append, Name 
Change or Kill. In those cases, all of the 



file names on the disk appear on the 
screen, and the up or down arrow keys 
are used with a highlighted cursor to 
select the file name. And like earlier 
TW-64 enhancements, the Disk I/O is 
in memory; there is no delay in access- 
ing Disk I/O. I especially liked the use 
of the Fl and F2 keys. Switching from 
the text screen to the main menu and 
back is a snap. Also added to the Disk 
I/O menu is Format. How many times 
have you tried to save a TW-64 file only 
to find out the disk was full? You either 
had to kill something else on the disk 
or exit to basic to format a disk. Now 
you can format a disk without losing 
your text. And much to my delight, you 
can go directly to the Disk I/O menu 
from the text screen without going to 
the main menu first. 

Another nice touch that has been 
added is an automatic file backup. The 
new disk driver for TW-80 checks 
before saving a file to disk to see if there 
is already a file under the same name. 
If there is, it renames that file with an 
extension of BflK (Backup). If there is 
also a file with the same name and BflK 
extension, then TW-80 kills the original 
BflK file, renames the existing TXT file to 
BflK, and saves the current file with a 
TXT extension. And to lop it all off, if 
you are using a 5 1 2K CoCo 3, the extra 
memory can be used for two RAM 
Disks. You'll find this instant disk 
access a pleasure to use. but be sure to 
save your work to a floppy disk before 
you quit TW-80; otherwise, you will 
lose your work. 

The Format menu has the same com- 
mands as earlier versions except an 
Abort Printing command has been 
added. Again, the menu is clean, or- 
derly, and it also incorporates the Fl 
and F2 keys to get back quickly to either 
the main menu or the text screen. 

About the only negative point I can 



make is that some mention needs to be 
made in the documentation of printer 
baud rate settings. The CONFIG. BflS 
program shows a default of 7 for 9600 
baud, but my old version of TW-64 uses 
a 1 for 9600 baud. 1 think a table or 
other explanation would be helpful for 
those using different types and speeds of 
printers. 

As you can see, I'm excited about 
TW-80. This is a fine piece of software 
for the CoCo 3. and I highly recom- 
mend it. 

(Spectrum Projects Inc. P.O. Box 264, 
Howard Beach, NY 11414, 718-835-1344; 
$39.95 plus S3 S/H) 

— Jerry Semoncs 
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CoCo 1,2 S3 OS-9 



Screen Star/ OS-9 
Text Formatter — 
Word Processing 
Made Easy 

Screen Star is billed as a WordStar 
clone. Wore/Star is a popular MS-DOS 
word processor that has been around 
for quite a while. Although it is a 
difficult piece of software to learn, it is 
considered by many to be one of the 
best. The advantage of using a Word- 
Star clone on the CoCo is that you can 
work comfortably on both the MS- 
DOS and OS-9 systems without having 
to relearn commands. I have not used 
WordStar, but my Dyna.ilar experience 
made learning Screen Star quite easy 
since the commands are very similar. 

One difference between the Word- 
Star clones and most RS-DOS word 



fS HERE! 

LOTZALUK, machine language program for (XXX) 1, 2,& 3. Studies history of I/7ITO 
game as a hand i capper studies horses. Arizona 6/39, California 6/49, Iowa 6/36, 
Missouri 6/39 , Now York 6/40, New York 6/48, Oregon 6/42, Tri -State (Maine, 
New Hampshire, & Vermont) 6/36, & Washington State 6/44 available. Others to 
follow. Requires 64K. Speoi fy game desired with order 
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processors such as Telewriter is dial 
word processing is clone in two stages 
with two different programs. Screen 
Star is described as a text editor, which 
is used for entering and editing text. In 
order to obtain the printed hard copy. 
a second program, OS-9 Text Format- 
ter, is used. While the two packages are 
sold separately, they are usually pur- 
chased together, especially when setting 
up a word processor. 

The Screen Star package comes with 
two versions — OS-9 Level I and Level 
II. Also included is a spelling checker 
with dictionary. The disk contains a 
Level I OS-9 boot and a limited number 
of OS-9 commands for Level I opera- 
tion of Screen Star. This version has its 
own 50-character screen, similar to 
other RS-DOS word processors. The 
screen scrolls horizontally so you can 
see the whole text, and the scrolling is 
very crisp. However, it is no substitute 
for an 80-column screen. 

1 tried running Screen Star with my 
80-column driver under Level I. Version 
2, but was unsuccessful since Screen 
Star looks for its own screen driver. I 
would like to see Computerware change 
this, as there are many Level I users who 
have 80-column screen capability. It is 
important to note that those of you who 
do not own OS-9 can still have a good 
word processor without a major 
expenditure. Hopefully, you will like 
OS-9 and purchase the operating sys- 
tem at a later date. 

The Level II version does not come 
with a Level II boot and commands. 
Those who want to use this version will 
have to purchase OS-9 Level II sepa- 
rately from Tandy. Also, a 512K CoCo 
is required for the Level 11 version. This 
version provides the extra options to 
directly call the text formatter and the 
spelling checker from within Screen 
Star. 

Starting up Screen Star is easy. For 
OS-9 Level I, simply make a backup of 
the master disk and, using the backup 
disk, type DOS after powering up your 
CoCo. OS-9 will prompt you for the 
date, and at the OS-9 prompt enter 
SSTFIR. For Level II you will have to 
copy the Level II version of Screen Star 
to /de^CriDS of your system disk. Also, 
make sure you are in an 80-by-24 text 
screen before starting Screen Star. You 
will also want to set up the colors in the 
palette to your liking if you are using a 
color monitor. 

Although Screen Star is a WordStar 
clone, Computerware has done some 
simplification of cursor movement, 
which has always been a "pain" for new 



users of WordStar. Cursor motion on 
the screen is controlled by the arrow 
keys, as we have come to expect. For 
seasoned users of WordStar, Screen 
Star also retains the original cursor 
motion control. 

Before going further in the discussion 
of Screen Star commands, I will talk a 
little about the online help facility, 
which can be eliminated once you are 
proficient in Screen Star's commands. 
This option is available in both ver- 
sions. Screen Star comes configured 
with the online help activated. If you 
enter the appropriate help command, a 
window will open that gives informa- 
tion on the four categories of Screen 
Star commands. 



"In the Level II 
version, capability is 
provided for setting up 
10 function keys that 
make Screen Star 
operations easier. " 



The basic command set (ALT-l) takes 
care of the most commonly used com- 
mands for cursor movement, insertion 
and deletion. The CTRL-K commands 
(Block and Disk I/O) handle the disk 
I/O and the block text copying, mov- 
ing, inserting, deleting and saving/ 
loading of files to disk. The CTRL-P 
commands (Parameter Features) are 
used to set up tabs, line length, word 
wrap and several other features. These 
parameters can be saved in a parameter 
file that is read by Screen Star on start- 
up. The CTRL-Q commands (Quick Key 
Sequences) are used for rapid horizon- 
tal and vertical motion as well as jump- 
ing to the beginning or end of the 
document. The CTRL-Q commands also 
cover the search and replace options. 

In the Level II version, capability is 
provided for setting up 10 function keys 
that make Screen Star operations eas- 
ier. The definitions for each key can be 
saved in a parameter file along with line 
length, tabs and other parameters so 
that everything is ready to roll each time 
that you run Screen Star. The function 
keys are used by pressing the combina- 
tion of ALT plus a number from to 9. 

The evaluation was done using the 
Level II version of Screen Star. Overall, 
it is a good introductory word processor 



with quite a bit of power. However, 1 
found two problems with Screen Star — 
speed and lack of screen formatting. I 
never lost any characters, but I found 
that text insertion was very slow, as was 
block movement of paragraphs. 

Screen Star provides a very nice 
feature when doing block moves, copies 
or deletions. After marking the start 
and end of the block, the block is 
reprinted in inverse video so you can see 
exactly what has been marked. While 
this is a handy feature, it is slow, since 
a complete screen refresh occurs to the 
point of a block. The printing of the 
block in inverse video is extremely slow 
and almost negates the value of this 
feature. 

A bit of caution is also in order here. 
I found that marking a part of a line 
with the block commands resulted in 
the loss of the entire line when I did a 
block delete. This is unusual since block 
deletion works on parts of lines on every 
word processor that 1 have used and is 
quite useful. The only way around this 
problem is to use the word delete com- 
mand, CTRL-T. One positions the cursor 
at the start of the deletion and presses 
CTRL-T to delete words to the right. 
There was no provision for a left word 
delete. 

The use of windows for help menus 
is also slow. I don't believe that this is 
due to the OS-9 system, as I have seen 
faster window operation using BASIC09. 
In any case, the windows are nicely set 
up and provide valuable information 
for the new user. I did run into several 
situations where the text under a win- 
dow was not restored after the window 
was closed. At first, 1 thought 1 had lost 
several lines of text; however, moving 
the cursor to the appropriate lines 
somehow restored the text. This is 
obviously a non-destructive bug, but it's 
quite disheartening to see lines of text 
vanish. 

As I said in the beginning of this 
review, the philosophy of WordStar 
clones is to let one program do the 
editing and another do the formatting. 
Screen Star does exactly this — there is 
no screen formatting. Everything is left 
to the text formatter. 

One of the major advantages of OS- 
9 is the hierarchical directory system. 
For example, on my document disk I 
have a directory for RAINBOW reviews, 
•dl/RAINBOW_REVIEWS. Unless you 
remember to do a change directory 
before starting Screen Star, there is no 
way to change directories from within 
it. I found out the hard way by calling 
a shell with CTRL-PO and trying to do 
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a chd. The net result was I hung up the 
CoCo and could not get back into 
Screen Star. The bottom line is doing 
the chd before starting Screen Slur. 
hopefully, Computerware will add this 
option (which is virtually a standard on 
any OS-9 software). 

I mentioned earlier when talking 
about the function keys that Screen Star 
sets up a parameter file that is read on 
start-up. Thus, you are able to set 
various parameters and customize 
Screen Star to your liking. One parame- 
ter is tab spacing. Screen Star comes 
with a default setting of tabs every 16 
spaces. This can be changed to whatever 
spacing you like, but only equally 
spaced tabs can be set, such as every five 
spaces. 

The documentation provided con- 
sists of a 23-page manual, which pro- 
vides all the necessary information to 
run Screen Star. The manual provides 
a discussion of all of the commands and 
a command summary at the end of the 
manual. In addition, a help card is 
provided. Since I had experience with 
the WordStar command approach. I 
had no problem using Screen Star. For 
the beginner. I think that it would be 
appropriate for Computerware to pro- 
vide a tutorial illustrating Screen Star 
operation. Otherwise, the manual is 
easy to use as a reference of command 
information. 

Included on the Screen Star disk is a 
spelling checker program called Smart 
Speller (Spell), along with a 25,000- 
word dictionary and a dictionary editor. 
The approach taken in Smart Speller is 
different from most spelling checkers. 
The dictionary contains misspellings of 
the most common words used in a 
typical document. Instead of scanning 
through a large dictionary of proper 
spellings. Spell looks in a small file of 
misspellings. This is presumably a faster 
approach than the more traditional 
versions and takes about 80 seconds per 
page of text. Of course, if you are like 
me and type non-standard misspellings. 
Spell will miss the error. This is the price 
you pay for speed. 

Spell can be run either directly from 
the OS-9 command line or, if using the 
Level II version of Screen Star, by 
entering the command CTRL-KZ. For no 
specific reason, I prefer to run Spell 
from the command line where the two 
options are D, display all misspellings 
and the correct spelling; and P, the 
prompted mode that displays each 
misspelling and prompts if you would 
like to replace the misspelled word with 
its correct spelling. The latter option is 



to be preferred since there are always 
some words that are correct but a 
spelling checker might change. Of 
course, with this option you must re- 
main at the computer in order to tell 
Spell whether it should replace each 
word that it finds with the correct word 
from the dictionary. 

Also provided with the Smart Speller 
is a dictionary editor. Edict, which will 
allow you to add or delete words within 
the limit of 25.000 words. This is a 
menu-driven program that provides 
easy editing of the dictionary. 



"Text provides a wealth 
of commands to meet 
almost any printing 
situation. " 



I ran Spell several times during the 
time spent with the Screen Star package 
and found no problems. It works espe- 
cially nice if you have a two-disk system 
since you can place the new copy on the 
second drive. 

Now that you have entered and edited 
a text file with Screen Star and checked 
the spelling with Spell, it is time to print 
the file. You will recall in the beginning 
of this review, 1 mentioned that Word- 
Star and its clones consist of two pro- 
grams, the screen editor and the text 
formatter. This approach is quite differ- 
ent from that of most RS-DOS word 
processors, in which the setup for the 
printed page is done within the word 
processor, usually from a menu. In the 
WordStar approach, text formatting 
commands arc embedded in the text file 
using the screen editor. 

Text formatting commands, often 
refered to as dot commands, consist of 
a period followed by two letters that 
identify the command function. Each 
command must be placed at the begin- 
ning of a line; otherwise. Text will print 
the line as part of the text. A number 
of the commands have arguments that 
are entered on the same line following 
the command. For example, the com- 
mand .SP causes one blank line to print 
whereas .SP 3 causes three lines to 
print. Text provides a wealth of com- 
mands to meet almost any printing 
situation. 

Besides commands for text format- 
ting, there are commands for setting up 
the printer, inserting data or text from 
other files such as mail merge files. 



stopping the printer to directly enter 
text from the keyboard, and macro 
capability. This last capability is very 
important since it allows the user to 
create specific sets of instructions for 
special formats. A very good example, 
which is provided in the documenta- 
tion, is a macro for creating footnotes 
at the bottom of a page. Anyone who 
has ever typed a term paper knows quite 
well the problem of allowing enough 
space at the bottom of the page to type 
the footnotes. With the footnote macro, 
all you have to do is type . BF when you 
enter the foootnote reference in the text. 
This command is then followed by the 
actual reference citation. When Text 
begins processing the file to the printer, 
it will save all references encountered 
and print them at the bottom of the next 
page. In this way you let the computer 
take care of calculating needed space for 
footnotes. 

There is a lot of powerful capability 
that will meet almost any type of page 
formatting. It will take time to learn all 
the options as well as the interactions of 
all of the commands; however, the 
effort will be well worth it. For those 
who plan to do simple word processing 
such as letters and documents, you will 
only need a few commands such as the 
margins, line spacing and perhaps some 
printer format commands. Also, many 
of the commands have defaults that 
meet most conditions. This review used 
only the centering command and relied 
on the default settings. 

Overall, the combined package of 
Screen Star, Spell and OS-9 Text For- 
matter makes a very good word process- 
ing package. The price for the combined 
package is reasonable, especially con- 
sidering the capability provided. 1 do 
have reservations about the Screen Star 
editor with regard to speed. Since 1 use 
a word processor almost on a daily 
basis, with a lot of formatting that I 
want to see onscreen as opposed to the 
printed page, I would rate the editor as 
fair. The user should always take into 
consideration such factors as cost, 
expected usage and any special needs 
before buying any word processor. 
However, no matter what your likes or 
dislikes, this package provides the 
capability to meet all home computer 
needs. 

(Computerware, 4403 Manchester Ave., 
Suite 102-Box 668, Encinitas, CA 92024, 
619-436-3512; Screen Star, $49.95; OS-9 
Text Formatter, $34.95; both $74.95 ) 

— Donald Dollberg 
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The following products have recently been received by 
THE RAINBOW, examined by our magazine staff and 
issued the Rainbow Seal of Certification, your assurance 
that we have seen the product and have ascertained that 
it is what it purports to be. 
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Assembly Language Programming for 
the CoCo 3, a book thai describes the 
CoCo 3 enhancements and how to use 
them with assembly language. This is a 
continuation of the book Assembly 
Language Programming for the TRS- 
80 Color Computer. Tepco. 30 Water 
Street. Portsmouth. Rl 02871. (401) 
683-5312: $12 plus $1 S/H. 

Color Max 3, a I28K graphics editor 
that allows use of 16 colors in 320-by- 
200 resolution. Features icons, pull- 
down menus and dialog boxes. For the 
CoCo 3. Computize, Inc., P.O. Box 
207. Langhorne. PA 19047. (215) 946- 
7260; $59.95. 

DeskMate 3, an integrated package of 
seven personal productivity applica- 
tions: Text, Ledger, Index Cards, Paint, 
Telcom, Calendar and Calculator. Text, 
Ledger and Telcom permit the use of 
either 40 or 80 columns. For the CoCo 
3. Tandy Corporation. 1700 One Tandy 
Center. Ft. Worth. TX 76125; $99.95. 
A vailahle in Radio Shack stores nation- 
wide. 

V GrafFind, a disk utility that lets you 
view, transfer, rename, and kill stand- 
ard graphics files. For the CoCo 1 , 2 and 
3. Rainy Day Software. 10625 SE 
362nd. Sp. B-32. Boring, OR 97009, 
503-663-7 160: $10. 

Iron Cross: War in Russia, a 64K war 

game for the armchair general. The 
German invasion of Russia began on 
June 22, 1941. The object of this pro- 
gram is to defeat the Russian forces 
controlled by the computer to take 
control of the Russian cities. For the 
CoCo 1, 2 and 3. Computerware, Inc., 
4403 Manchester Avenue, Suite 102, 



Encinitas, CA 92024. (619) 436-3512; 
$24.95. 

Mickey's Space Adventure, a 64K Ad- 
venture game for ages 8 and up. Join 
Mickey and Pluto on a journey through 
the solar system in their quest to help 
friendly aliens recover lost pieces of a 
valuable memory crystal. For the CoCo 
I. 2 and 3. Sierra On- Line, Coarsegold, 
CA; $34.95. Available in Radio Shack 
stores nationwide. 

MLBASIC Revision 2.0. a I28K en- 
hanced BASIC compiler that allows users 
who are unfamiliar with machine lan- 
guage programs to create a machine 
language program from a BASIC pro- 
gram with little or no effort. For the 
CoCo 3. WasaichWare. 7350 Nutree 
Drive. Salt Lake City, VT 84121. (801) 
943-6263; $69.95 CoCo 2, $49.95 CoCo 
3 plus $4 S/H. 

PYRAMIX, a I28K arcade game. The 
object is to hop Kubix -- a short, 
roundish little guy with a long snout - 
on the lops of the blocks that make up 



the pyramid. Your goal is to change all 
the blocks in the pyramid to the same 
color and move on to a higher level ol 
play. For the CoCo 3. Dr. Preble's 
Programs, 6540 Outer Loop. Louisville, 
KY 40228, (502) 966-8281; $24.95. 

Robot Odyssey 1, a 64 K educational 
program that helps develop skills in 
logical problem-solving, abstract rea- 
soning and creative thinking. Design 
robots, navigate invisible mazes, solve 
puzzles, and sneak past sentries to 
unlock the secret exit from Robotropo- 
lis. For the CoCo 1, 2 and 3. The 
Learning Company, 545 Middlefield 
Road, Menlo Park, CA 94025, (800) 
852-2255; $34.95. Available in Radio 
Shack stores nationwide. 

TW-80, an 80-column enhancement for 
Telewriter-64 with Telepatch using the 
Fl and F2 keys to access the main menu 
or editor. Includes new fonts and print 
spooler. For the CoCo 3. Spectrum 
Projects, P.O. Box 264. Howard Beach, 
NY 11414. (718) 835-1344; $39.95 plus 
$3 S/H. 

4^ First product received from this company 



The Seal of Certification program is open to all manufacturers of products 
for the Tandy Color Computer, regardless of whether they advertise in 
THE RAINBOW. 

By awarding a Seal, the magazine certifies the product does exist — that 
we have examined it and have a sample copy — but this does not constitute 
any guarantee of satisfaction. As soon as possible, these hardware or 
software items will be forwarded to THE RAINBOW reviewers for 
evaluation. 

— Judi Hutchinson 
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WRITEST 

Editor: 

I would like to update the infor- 
mation on my program WRITEST 
as reviewed by Mel Siegel (January 
1987). As a result of his comments, 
the program has been condensed 
twice, for a gain of about 5K, so it 
now handles a CLERR4500 rather 
than the 1500 for Version 1.0. 

The edit feature has been re- 
worked twice and is being touched 
up a bit more. It is very similar to 
the EDIT in the CoCo's Extended 
BASIC, but slower, due to the use of 
BASIC programming. 

Filing now includes an append 
feature so two files from the same 
section can be combined. For those 
with non-Radio Shack recorders, 
M0T0R0N and M0T0R0FF can be 
controlled from the file menu. 

Auto-wordwrap no longer wipes 
out following lines, but appends 
them. Line spacing can be set and 
changed within the "line processor." 

For those with a memory prob- 
lem, a split version of the program 
is sent direct (disk and tape). The 
program is available on disk (RS- 
DOS or JDOS) with cassette filing 
for merge. The program is now 
available for Tandy D MP- 130 and 
similar printers, for the Star Gemini 
1 and similar printers, as well as for 
the original Epson Graftrax. 

I will continue to send the pro- 
gram at my duplication and mailing 
costs ($3) and rely on the buyer to 
be conscientious enough to subse- 



quently send me fair value for what 
it is worth to him/her. 

Dairy I L. Petrak 
House, NM 

Backup and Backup III 

Editor: 

In your review of Backup and 
Backup ///(July 1987), Dale Shell 
stated that he would like to be able 
to use the utilities on multiple drive 
systems. The programs were in- 
tended primarily for single-drive 
users but can be modified for two 
drives with the following patches: 

Backup: 

10 CLEAR1000: DSKI $0 , 1G , 1 , 
fl$,B$: DSKI$0,1G,2,C$, 
D$:MID$(B$,94,1)=CHR$ 
(33) :MID$(B$,116,1)=CHR$ 
(1) :MID$(C$,G7,1)=CHR$ 
(33):MID$(D$,?5,1)=CHR$ 
(l):DSKO$0,lG,l,flS,BS: DSKO 
$0,1G,2,C$,D$ 

Backup III: 

10 CLERR1000: DSKI$0,1G,1, 
R$,B$: DSKI$0,16,2,C$, 
D$:MID$(B$,123,1)=CHR$ 
(33) :MID$(C$,30,1)=CHR$ 
(1) :MID$(C$,11B,1)=CHR$ 
(33) :r1ID$(DS,12G,l)=CHR$ 
(1) :DSKO$0,lG,l,n$,BS: DSKO 
S0,1G,2,C$,D$ 

Enter the proper patch and run it 
with a backup copy of your utility 
in Drive 0. (Don't use it on the 
original - - a typing mistake will 



destroy the program!) The patches 
change the destination drive to 
Drive I. 

Carl England 
Brainchild Soft ware 

Calhoun. GA 

Telewriter 64 

Editor: 

In the August 1987 issue of RAIN- 
BOW is a review of Telewriter 64. 1 1 
states that TW-64 "defaults to the 
Insert mode rather than to the Over- 
strike mode . . . besides, you can 
select the overstrike mode, if you 
prefer, with a simple keystroke." 

I have searched through the in- 
struction manual and can find no 
reference to Overstrike mode nor a 
simple keystroke. 

I would appreciate your telling 
me how to initiate an Overstrike 
mode for making corrections in 
text. 

Ralph C. MeCormic 
Keno, OR 

Editor's Note: You are quite 
correct in your observation 
concerning the Insert mode 
(TW-64). The review was sup- 
posed to point out that Tele- 
patch or Ultra Telepatch de- 
faults to the Insert mode. In 
these programs you simply 
press CLEAR-0 for overstrike. 
We 're sorry for the incon- 
venience this may have caused 
you and appreciate your cal- 
ling this error to our attention. 
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Ge n e alogy 



CoCo3 




Right Back 
Where We 
Started Froin 

Part II 

By Brian LeBlai 
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ast month, we presented the first file. The second file, DATA, holds a 

part of the Genealogy program— ■ complete record for each family 

(the part thai generates family member. 
information sheets. Now that you have After 50 records have been entered, 

gathered data from your family the program will prompt for a new data 

members, it's time to enter that infor- disk. Disregarding this notice could 

mation into the computer and generate cause a system crash, and some or all 

a lineage printout. of the data on the disk could be lost. 
Load the FAMILY program and insert 



a newly formatted data disk. FAMILY 
creates two files on this disk. The first 
file, NAMES, contains the first eight 



Entering Data 

When entering data, try having the 
family members information close at 



entries on a family history information hand to avoid undue errors. If a DATA 

page, plus the data location on the DATA line has more than 28 characters, the 

excess will be cut off. The first three 

Brian LeBlanc is a licensed industrial entries on the first page (i.e., last name, 

electrician and a qualified electronics first name, middle name) must contain 

technician, lie troubleshoots and re- names or, if the names are not known, 

pairs industrial computers and pro- a letter must be inserted for the program 

grammahle controllers. Brian holds to continue. 

eight diplomas from various computer The lineage number can be any 

courses, and he lives in Dighy County, number from l to 99,999,999. (See the 

Nova Scotia. lineage chart for possible uses.) The 
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generation, baptized date, birth date 
and death date can be any number from 
I to 99,999,999. The above notes will 
only accept numbers. 

When entering dates, it is imperative 
that they are entered as year, month, 
day; they do not contain any spaces or 
commas, and they contain eight digits. 
As an example, January 5, 1987, would 
be 19870105. 

When all the data has been entered, 
you can skip to the end of the routine 
by pressing L for Last Entry. You then 
have two choices: aborting (press M to 
abort and return to the menu), which 
will erase all entered data; or saving 
data (press S to save on disk), which will 
ask if the proper disk is in the drive (the 
proper disk being any initialized disk). 

After the data has been saved on disk, 
you can either press E to enter more 
data or press M to return to the menu. 

Searching Data 

Trying to search an empty disk will 
cause an error and prompt you to return 
to the menu. The program will search 
for a full name or part of a name. As 
an example, entering P for Last Name 
will display all last names beginning 
with P. 

You can search for a specific birth 
date: all birth dates up to and after a 
specific date, and those between two 
specific dates. You can also search for 
a specific death date: all death dates up 
to and after a specific date, and those 
between two specific dates. The screen 



will show how many matches were 
found in the file. 

When displaying a searched record, 
press the space bar to display the next 
page. When changing a searched re- 
cord, press the space bar. Display the 
next page. Pressing C will put the cursor 
on the top of the page, pressing the 
down arrow will lower the cursor one 
line at a time, and pressing the left arrow 
or right arrow will erase the current 
DATA line and put the cursor at the 
beginning of the line. 

After the data has been entered, 
pressing ENTER will place the cursor at 
the left of the page. To continue down 
the page, press the down arrow key. 
When the cursor reaches the bottom of 
the page, the next page will be dis- 
played. 

For example, to change the birth dale 
of John Doe: 

1) Call up the Search routine. 

2) Enter DOE for the last name. 

3) Enter JOHN for the first name. 

4) Press ENTER until the cursor 
reaches the bottom of the page. 

5) Press S to begin the Search. 

6) Press I (display record) to verify 
that the correct record has been 
found. 

7) Press the space bar until the menu 
is displayed. 

8) Press 5 (change record). 

9) Press C to begin the data Change 
routine. 

10) Press the down arrow until the 



cursor is opposite the birth date. 

1 1 ) Press the left arrow or right arrow 
to put the cursor on the old data. 

12) Enter the correct data and press 
ENTER. 

13) Press the down arrow until the 
cursor reaches the bottom of the 
page. 

14) When the next page is displayed, 
press the space bar to scroll 
pages. 

15) At the Screen prompt, press S to 
save the data on disk. 



Printouts of Records 

Pressing 2 (printout complete record) 
will ask you to make sure the top of the 
printer paper is flush with the tractor 
feed cover. Pressing P will cause the 
printer to scroll through one page and 
begin printing the record on the second 
page. And, pressing 3 (printout partial 
record) will print the first page only. 

Record printouts consist of two 
pages. Page 1 contains the first three 
screen pages and Page 2 contains the 
remaining two screen pages. 

The printer 1 used is the Tandy DM P- 
105. You may have to adjust lines 1730 
and 4230 for your printer to adjust the 
start position of printing on the paper. 

(Questions about this program may 
be directed to the author at RRI 
Church Point Box 67- B, Digby County. 
Nova Scotia, Canada BOW 1 MO. Please 
enclose an SASE when writing for a 
reply.). □ 
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150 HSCREEN 1 : PALETTE CMP:PALETT 


^ 


1^260 206 2750 


....182 


4900 . . 


....96 


1 E 0,0 




510 170 2900 


62 


5100 .. 


...190 


160 HPRINT (6,2),"************** 




770 223 3030 


85 


5340 . . 


...175 


************'■ 




1010 161 3220 


57 


5550 . . 


....77 


170 HPRINT (6,3) ,"* 
* " 




1240 250 3430 


....207 


5760 . . 


...133 




1450 182 3680 


....175 


5890 . . 


...115 






1670 68 3860 


....187 


6150 .. 


...210 


180 HPRINT (6,4),"* FAMILY 




1910 98 4050 


....134 


6280 . . 


...154 


TREE *" 




2180 187 4200 


....140 


6560 . . 


...210 


190 HPRINT (6,5) ,"* 




2400 152 4440 


77 


END .. 


...255 


*•• 




2560 160 4660 


....103 






200 HPRINT (6,6),"* PROG 






















K A H *» 








210 HPRINT (6,7) ,"* 


Listing 1: FAMILY 






*" 

220 HPRINT (6,8),"************** 


100 CLEAR 19 50 






************ " 


110 ON ERR GOTO 


6670 




230 HPRINT (9,10)," (C) BRIAN L 


120 DIM A$(137) 


B$(125) ,H(50) ,N$ EBLANC" 


(50) ,S$(16) :WIDTH 40 




240 HPRINT (4, 16), "FOR COCO 3 /D 


130 DUMMY$=" 






ISK DRIVE/PRINTER" 


n 






250 HPRINT (9,18)," JANUARY 24/1 


140 REM LOGO 






987" 
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2 60 FOR 1=1 TO 1200: NEXT I 
2 70 GOSUB 6090 

2 80 PALETTE CMP:HSCREEN : CLS 
290 REM MENU ROUTINE 

300 CLS 

310 LOCATE 18,1: PRINT "MENU" 

320 FOR 1=125 TO 129 

3 30 LOCATE 8 , 1-120 : PRINT A$(I) 
340 NEXT I 

3 50 LOCATE 5, 20: PRINT "YOUR CHOI 
CE : ?" 

3 60 Q$=INKEY$: IF Q$="" THEN 3 60 
370 IF Q$<"0" OR Q$>"3" THEN 360 
380 ON VAL(QS) GOTO 410,2320,231 



390 STOP 

400 REM DISPLAY FAMILY HISTORY I 

NFORMATION PAGE 

410 CLS 

4 20 R=1:C=1 

430 FOR 1=1 TO 16 

440 LOCATE C,R: PRINT A$(I)+B$(I) 

450 R=R+1 

4 60 NEXT I 

470 R=1:C=12 

480 FOR 1=1 TO 3 

490 LOCATE C,R:LINE INPUT Q$ 



J&R ELECTRONICS 

Easy, Solderless Installation 

"JramR" 

512K COCO 3 Memory Expansion Board. Upgrades slock 128K COCO 3 lo lull 
512K lor 0S9 Level II. Similar lo RS upgrade. 

Now pardner... reach for your 

SIXDRIVE! 

With purchase of a BANKER II or JramR 
you can have a #9008 SIXDRIVE 



for only 

SIXDRIVE is a machine language utility thai 
modifies Disk Extended Basic 1 .0, 1 .1 , or FKEYS III 
to allow Ihe use of 3 double sided drives as 6 single 
side drives without ANY hardware modifications. 
FEATURES two different drive select assignments: 
(1) [0,2] [1,3] [4,5] (2) [0,1] [2,3) [4,5] 

Ramdisk is compatible wrth CIMMESOFTs SIXDRIVE 



Made In U.S.A. 




Complete Hardware & Software 



COCO 3 ONLY 

#1010 $39.95 JramR bora board plus connectors and sollwaro 

#1011 $79.95 JramR k-i includes all pans plus momory chips and softwaio 

#1012 $99.95 JramR assomblod and toslod plus momory chips and software 

■ 1013 $19 95 JramR S/W doluxe customizable ramdisk 4 spooler, memory lost, and 

ramdisk utility programs. Compallbfe with all CoCo 3 512K. 
#1014 $49.95 JramR 0K bytes (#1012 less memory chips) 

Readily available: User Replaceable Socketed Memory Chips, no hard-to-find SIP memories. 

To place an order, writa to J&R Electronics. P.O. Box 2572. Columbia, MO 21045, OR call (30!) 

987-9067-Jesse or (301) 788-0861-Ray. 

HOURS: Weekdays 7 p.m-9 p.m ; Sal. Noon-5 p.m. EASTERN TIME, usually, il no answer try later. 

Add $4.00 shipping & handling (FOREIGN ORDERS S7 00), COD chargo $3.00. Maryland residents add 

5% stato tax Foreign orders must include payment on U.S. bonk 

CHECKS, MONEY ORDERS OR COD's only please (personal check— 2 weeks lor clearnnco). IMMEDIATE 

DELIVERY Give COCO Radio Shack model #(i.e. 26-3136) Disk or Tape when ordering 

QUANTITY DISCOUNT AVAILABLE. For Inlormalion on shipping or previously placed ordors call (301) 

788-0861. COCO II 26-31XX owners call (soldering expenenco may bo required). 

Refer to back Issues of RAINBOW for other products. 



500 IF Q$<"A" OR Q$>»Z" THEN 490 

510 IF LEN(Q$)>15 THEN Q$=LEFT$ ( 

Q$,15) 

520 IF LEN(Q$)<15 THEN Q$=Q$+" " 

: GOTO 520 

530 B$(I)=Q$ 

540 R=R+1 

550 NEXT I 

560 FOR 1=4 TO 8 

570 LOCATE C,R:LINE INPUT Q$ 

580 IF LEN(Q$)<8 THEN Q$=Q$+" » : 

GOTO 580 

590 B$(I)=Q$ 

600 R=R+1 

610 NEXT I 

620 R=9 

630 FOR 1=9 TO 16 

640 LOCATE C,R:LINE INPUT Q$ 

650 IF LEN(Q$)>28 THEN Q$=LEFT$ ( 

Q$,28) 

660 B$(I)=Q$ 

670 R=R+1 

680 NEXT I 

690 CLS 

700 LOCATE 1,10:PRINT"PRESS (C) 

FOR PERSONAL NOTES PAGE" 

710 LOCATE 1,12: PRINT" (L) 

FOR LAST ENTRY" 

720 Q$=INKEY$:IF Q$="" THEN 720 

730 IF Q$="L" THEN 1560 

740 IF Q$<>"C" THEN 700 

750 REM DISPLAY PERSONAL NOTES P 

AGE 

7 60 CLS 

770 R=1:C=1 

780 FOR 1=17 TO 35 

790 LOCATE C,R:PRINT A$(I);B$(I) 

800 R=R+1 

810 NEXT I 

820 R=1:C=12 

830 FOR 1=17 TO 35 

840 LOCATE C,R:LINE INPUT Q$ 

850 IF LEN(Q$)>28 THEN Q$=LEFT$ ( 

Q$,28) 

860 B$(I)=Q$ 

870 R=R+1 

8 80 NEXT I 
890 CLS 

900 LOCATE 1,10: PRINT "PRESS (C) 
FOR FIRST MARRIAGE PAGE" 

910 LOCATE 1,12: PRINT " (L) 

FOR LAST ENTRY" 

920 Q$=INKEY$:IF Q$="" THEN 920 

930 IF Q$="L" THEN 1560 

940 IF Q$o"C" THEN 900 

950 REM DISPLAY PERSONAL FAMILY, 

FIRST MARRIAGE PAGE 

960 CLS 
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97J3 R=j3:C=l 


1180 CLS 


98j3 FOR 1=36 TO 58 


1190 R=0:C=1 


990 LOCATE C,R:PRINT A$(I);B$(I) 


1200 FOR 1=59 TO 81 


1000 R=R+1 


1210 LOCATE C,R:PRINT A$(I);B$(I 


101J3 NEXT I 


) 


Ip2j3 R=0:C=12 


1220 R=R+1 


1030 FOR 1=36 TO 58 


1230 NEXT I 


1040 LOCATE C,R:LINE INPUT Q$ 


1240 R=0:C=12 


1050 IF LEN(Q$)>28 THEN Q$=LEFT$ 


12 50 FOR 1=59 TO 81 


(Q$,28) 


12 60 LOCATE C,R:LINE INPUT Q$ 


1060 B$(I)=Q$ 


1270 IF LEN(Q$)>28 THEN Q$=LEFT$ 


1070 R=R+1 


(Q$,28) 


1080 IF 1=40 THEN 1=1+1 : R=R+1 : C= 


1280 B$(I)=Q$ 


1 


1290 R=R+1 


1090 IF 1=49 THEN 1=1+1 : R=R+1 : C= 

1 

1100 NEXT I 


1300 IF 1=63 THEN 1=1+1 : R=R+1 : C= 

1 

1310 IF 1=72 THEN 1=1+1 :R=R+1 : C= 


1110 CLS 


1 


1120 LOCATE 1,10: PRINT "PRESS (C 


1320 NEXT I 


) FOR SECOND MARRIAGE PAGE" 


1330 CLS 


1130 LOCATE 1,12: PRINT " (L 


13 40 LOCATE 1 , 10 : PRINT "PRESS (C 


) FOR LAST ENTRY" 


) FOR THIRD MARRIAGE PAGE" 


1140 Q$=INKEY$:IF Q$="" THEN 114 


13 50 LOCATE 1,12: PRINT " (L 





) FOR LAST ENTRY" 


1150 IF Q$="L" THEN 1560 


1360 Q$=INKEY$:IF Q$="" THEN 136 


1160 IF Q$<>"C" THEN 1120 


P 


1170 REM DISPLAY PERSONAL FAMILY 


1370 IF Q$="L" THEN 1560 


, SECOND MARRIAGE PAGE 


1380 IF Q$<>"C" THEN 1340 



SPECIAL DEAL ON 
500 PROGRAMS! 



GET 50 DISKS OR 50 CASSETTE TAPES FULL OF OVER 
500 PROGRAMS. HERE IS WHAT YOU'LL RECEIVE: 

♦ Over 250 Utility/Home Application Programs including a 
Word Processor, DataBase, Spreadsheet, Account Man- 
ager, 2 Basic Compilers, Terminal Programs, ROM Copies, 
Mail List, Machine Language Tutorials, Plus Much More! 

*Over 200 exciting games including Warlords, Star Trek, 
Super Vaders, Solar Conquest, Horse Races, Football, 
Baseball, Frog Jump, Invader, Plus Much More! (Many 
machine language games) 

* Over 30 adventures including The College Adventure, Dun- 
geon Master, Space Lab, Ice World, Ship Wreck, Zigma 
Experiment. Plus 32K Graphic Adventures. 



EACH INDIVIDUAL ISSUE SOLD FOR 
EACH OR s 450 FOR ALL 50 ISSUES. 
SLASHED THE PRICE TO ONLY 150.°°. 



SQ oo 

WE 



REG. H50 






oo 



• •THIS MONTH ONLY** 




Buy this package of 500 programs and 

receive a free 6 month subscription. 

(A s 35 value) 



$150 



RAINBOW 

MM 



THE GREATESTSOFTWARE DEAL 
ON EARTH JUST GOT BETTER! 



THAT'S RIGHT! THIS MONTH WE'VE DROPPED OUR YEARLY 
SUBSCRIPTION RATE AN UNBELIEVABLE s 1 0.°° TO ENTICE YOU 
INTO SUBSCRIBING WITH US. GET 1 2 DISKS OR TAPES A YEAR 
CONTAINING OVER 120 QUALITY PROGRAMS. A SUBSCRIP- 
TION TO T & D SOFTWARE CONSISTS OF 10 READY-TO-LOAD 
PROGRAMS DELIVERED BY FIRSTCLASS MAIL EVERY MONTH. 

NO WE ARE NOT THE SAME AS THE RAINBOW ON TAPE. IN 
FACT, MANY SUBSCRIBERS HAVE WRITTEN IN AND SAID THAT 
WE ARE MUCH BETTER THAN RAINBOW ON TAPE! 




PRICES 

TAPE THIS 

OR DISK MONTH ONLY 
1 YEAR (12 Issues) Jft«f 60.00 

6 MO. (6 Issues) JWfflf 35.00 

1 1SSUE AW 8.00 

Michigan Residents Add 4% 
Overseas Add $10 lo Subscription Price 
Personal Checks Welcome! 



* 1 6K-64K Color Compuler OUR LATEST ISSUE CONTAINED 

* Over 4000 Satislied Customers 1. Accounts Receivable 6. FootRace 



» Back Issues Available From 
* July 82 (Over 500 Programs) 



RAINBOW 

CtlHlflCATION 

■CM 



2. Work Male 

3. Calendar 

4. Invasion 

5. TripAdventu'e 



7. Flippy Ihe Seal 

8. Sceen Calculator 

9. Able Builders 

10. Super Error 2 p~^ 



Available on COCO 1, 2 and 3! 
All Programs Include Oocumenlation' 



MasterCard 



T & D SUBSCRIPTION SOFTWARE, 2490 MILES STANDISH DR., HOLLAND, Ml 49424 (616) 399-9648 
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1390 


REM DISPLAY PERSONAL FAMILY 


1850 


IF I>8 THEN IF LEN(B$(I))=0 


, THIRD MARRIAGE PAGE 


THEN B$(I)=DUMMY$:GOTO 1870 


1400 


CLS 


1860 


IF I>8 AND LEN(B$(I) )<28 TH 


1410 


R=0:C=1 


EN B$(I)=B$(I)+LEFT$(DUMMY$,28-L 


1420 


FOR 1=82 TO 104 


EN(B$(I))) 


1430 


LOCATE C,R: PRINT A$(I);B$(I 


1870 


WRITE #2,B$(I) 


) 




1880 


PUT #2, RECORD 


1440 


R=R+1 


1890 


IF I>9 THEN B$(I)=" " 


1450 


NEXT I 


1900 


RECORD=RECORD+l 


1460 


R=0 : C=12 


1910 


NEXT I 


1470 


FOR 1=82 TO 104 


1920 


WRITE #2, STR$ (RECORD) 


1480 


LOCATE C,R:LINE INPUT Q$ 


1930 


PUT #2,1 


1490 


IF LEN(Q$)>28 THEN Q$=LEFT$ 


1940 


CLOSE #2 


(Q$,28) 


1950 


REM CHECK DISK FOR NAME FIL 


1500 


B$(I)=Q$ 


E 




1510 


R=R+1 


1960 


OPEN "D",#l, "NAMES ",93 


1520 


IF 1=8 6 THEN 1=1+1 :R=R+1 : C= 


1970 


IF LOF(1)=0 THEN 2020 


1 




1980 


GET #1,1 


1530 


IF 1=95 THEN 1=1+1 :R=R+1 : C= 


1990 


INPUT #1,Q$ 


1 




2000 


LET LASTREC=VAL(Q$) 


1540 


NEXT I 


2010 


GOTO 2050 


1550 


REM DISK SAVING ROUTINE 


2020 


Q$="l» 


1560 


CLS 


2030 


WRITE #1,Q$ 


1570 


LOCATE 1,8: PRINT "PRESS (S) 


2040 


PUT #1,1 


TO SAVE TO DISK" 


2050 


CLOSE #1 


1580 


LOCATE 1,10: PRINT "PRESS (M 


2060 


REM UPDATE NAME FILE 


) TO 


ABORT AND RETURN TO MENU" 


2070 


E$=B$ (1) +B$ (2) +B$ (3) +B$ (4)+ 


1590 


Q$=INKEY$:IF Q$="" THEN 159 


b$(5; 


+B$ (6) +B$ (7) +B$ (8) +STR$ (STA 


)3 




RTREC) 


1600 


IF Q$="M" THEN FOR 1=1 TO 1 


2080 


OPEN "D",#l, "NAMES", 93 


04:B$(I)="":NEXT I: GOTO 2 300 


2090 


GET #1,1 


1610 


IF Q$<>"S" THEN 1590 


2100 


INPUT #1,Q$ 


1620 


REM PROPER DISK CHECK 


2110 


LET LASTREC=VAL(Q$) 


1630 


CLS 


2120 


REM ADVANCE RECORD POINTER 


1640 


LOCATE 1,8: PRINT "ENSURE PR 


2130 


LET LASTREC=LASTREC+1 


OPER 


DATA DISK IS IN DRIVE" 


2140 


WRITE #1,E$ 


1650 


LOCATE 1,10: PRINT "PRESS (C 


2150 


PUT #1,LASTREC 


) TO 


CONTINUE" 


2160 


WRITE #1,STR$(LASTREC) 


1660 


Q$=INKEY$:IF Q$="" THEN 166 


2170 


PUT #1,1 







2180 


CLOSE #1 


1670 


IF Q$<>"C" THEN 1660 


2190 


CLS 


1680 


OPEN "D", #2, "DATA", 32 


2200 


LOCATE 1,8: PRINT "DATA HAS 


1690 


IF LOF(2)=0 THEN 17 40 


BEEN 


SAVED TO DISK" 


1700 


GET #2,1 


2210 


LOCATE 1,10: PRINT "PRESS (M 


1710 


INPUT #2,Q$ 


) FOR MENU" 


1720 


LET LASTREC=VAL(Q$) 


2220 


LOCATE 1,12: PRINT "PRESS (E 


1730 


GOTO 1780 


) FOR NEXT ENTRY" 


1740 


Q$=STR$(1) 


2230 


IF LASTREC<50 THEN 2270 


1750 


WRITE #2,Q$ 


2240 


LOCATE 1,16: PRINT "CAUTION D 


17 60 


PUT #2,1 


ISK IS FULL" 


1770 


LASTREC=VAL(Q$) 


2250 


LOCATE 1,18: PRINT "FURTHER E 


1780 


CLOSE #2 


NTRIES MAY CRASH SYSTEM" 


1790 


LASTREC=LASTREC+1 


2260 


LOCATE 1,20: PRINT" INSERT A 


1800 


STARTREC=LASTREC 


NEW DISK FOR MORE ENTRIES" 


1810 


REM OPEN DATA FILE AND DUMP 


2270 


Q$=INKEY$:IF Q$="" THEN 227 


ENTRY ARRAY 







1820 


OPEN " D" , # 2 , " DATA" , 3 2 


2280 


IF Q$="E" THEN FOR 1=1 TO 1 


1830 


RECORD=STARTREC 


04:B$(I)="":NEXT I: GOTO 410 


1840 


FOR 1=1 TO 104 


2290 


IF Q$o"M" THEN 2270 
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23J3J3 GOTO 30p 

2310 CLS: END 

2 3 20 REM SEARCH ROUTINE 

2330 CLS 

2 340 X=0 

2 350 LOCATE 10,1: PRINT A$(105) 

2360 FOR 1=106 TO 124 

2370 LOCATE 1 , 1-104 : PRINT A$(I) 

2 380 NEXT I 

2390 FOR 1=1 TO 6 

2400 LOCATE 12, 1+2: LINE INPUT S$ 

(I) 

2 410 NEXT I 

2420 LOCATE 12, 11: LINE INPUT S$( 

V) 

2430 IF VAL(S$(7))<>0 THEN FOR K 

=8 TO 11:S$(K)="0":NEXT K:GOTO 2 

480 

2440 LOCATE 12, 12: LINE INPUT S$( 

8) 

2450 LOCATE 12, 13: LINE INPUT S$( 

9) 

2 4 60 LOCATE 12, 14: LINE INPUT S$( 

10) 

2470 LOCATE 12, 15: LINE INPUT S$( 

11) 

2480 LOCATE 22, 11: LINE INPUT S$( 
12) 



2490 IF VAL(S$(12) )<>0 THEN FOR 
K=13 TO 16:S$(K)= ,, 0":NEXT K:GOTO 
2550 

LOCATE 22, 12: LINE INPUT 



2 500 

13) 

2510 

14) 

2520 

15) 

2530 

16) 

2540 

2550 



LOCATE 2 2,13 
LOCATE 2 2,14 
LOCATE 2 2,15 



S$( 

LINE INPUT S$( 
LINE INPUT S$( 
LINE INPUT S$( 



REM CHECK FOR VALID ENTRY 
FOR 1=1 TO 16 
2560 CHECKENTRY$=CHECKENTRY$+S$( 

I) 

2 570 NEXT I 

2580 IF CHECKENTRY$<>"" THEN 2 67 



2590 CLS 

2 600 LOCATE 1 , 10 : PRINT "PLEASE E 

NTER VALID SEARCHING DATA" 

2 610 LOCATE 1,12: PRINT "PRESS (R 

) TO REDO ROUTINE" 

2 620 LOCATE 1,14: PRINT "PRESS (M 

) TO RETURN TO MENU" 

2630 Q$=INKEY$:IF Q$="" THEN 263 



2640 IF Q$="M" THEN 3540 



" I cannot imagine the CoCo 3 without ADOS-3; 
it would not be a complete machine." 

The RAINBOW, July 1987 

You've moved up to a CoCo 3. A powerful new machine Now. it's time to give BASIC a shot in the arm. with ADOS-3. 
Wouldn't it be nice to turn on your machine and be greeted by an 80-column display, in the colors of your choice, 
with your own custom startup message? To run routinely at 2 MHz (double speed) without having to slow down for 
disk and printer operations? This and much, much more is possible with ADOS-3, our CoCo 3 adaptation of the 
acclaimed original ADOS, which shares the original's virtual 100% compatibility with commercial software. After 
customizing ADOS-3 using the provided configuring utility, you can have it burned into an EPROM that plugs into 
the Disk BASIC ROM socket, or just use It in RAM as a disk utility. (EPROM + burning will cost S 15-20; we provide 
information concerning how you can have this done.) Supports double-sided drives (35, 40. or 80 frocks). FAST and 
SLOW commands, auto line number prompts. RUNM command, keystroke macros, arrow-key scroll through BASIC 
programs, auto-edit of error line, and many more valuable features. 

"ON A SCALE OF 1 TO 10, I RATE ADOS-3 A SOLID 15." RAINBOW, 7/87 

Disk . S34.95 Original ADOS for CoCo 1 or 2 . $27.95 (See 6/87 RAINBOW review) 

THE PEEPER 

ML program tracer that multitasks with the target program An excellent learning tool for the ML novice; an invaluable 
debugging aid for the expert. CoCo 1. 2. or 3 compatible 
Disk . S23.95 Assembler source listing . . Add S3. 00 



MONITOR CABLES for CoCo 3 

Magnavox 8CM515/8CM505/8CM643 



S19.95 



Sony KV1311CR 



S29.95 



SPECTROSYSJEMS 



11111 N. Kendall Drive, 
Suite A 108 
Miami, Florida 33176 
(305) 274-3899 Day or Eve. 

No delay on personal checks • Please add $2.00 shipping • Sorry, no credit cards or COD's. 
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2650 
2660 
2670 
) TO 
2680 
) TO 
2690 

9 

2700 

2710 

2720 

RAY 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 



IF Q$o"R" THEN 2630 

GOTO 2 3 20 

LOCATE 1,21: PRINT "PRESS (S 

BEGIN SEARCH" 

LOCATE 1,22: PRINT "PRESS (M 

RETURN TO MENU 

Q$=INKEY$:IF Q$="" THEN 2 69 



IF Q$="M" THEN 3540 
IF Q$<>"S" THEN 2690 
REM READ FILE AND SEARCH 



AR 



OPEN "D",#l, "NAMES", 9 3 

FOR 1=1 TO LOF(l) 

GET #1,1 

INPUT #1,Q$ 

LET N$(I)=Q$ 

NEXT I 

LASTREC=VAL(N$(1) ) 

FOR 1=2 TO LASTREC 

IF S$(l)<>"" THEN IF S$(l)= 
MID$(N$(I) ,1,LEN(S$(1) ) ) THEN 28 
20 ELSE 29 80 

2820 IF S$(2)<>"" THEN IF S$(2)= 
MID$(N$(I) ,16,LEN(S$(2) ) ) THEN 2 
830 ELSE 2980 

2830 IF S$(3)<>"" THEN IF S$(3)= 
MID$(N$(I) ,31,LEN(S$(3) ) ) THEN 2 
840 ELSE 2980 

2840 IF VAL(S$(4))<>0 THEN IF S$ 
(4)=MID$(N$(I) ,46,8) THEN 2850 E 
LSE 2980 

2850 IF VAL(S$(5))<>0 THEN IF S$ 
(5)=MID$(N$(I) ,54,8) THEN 2860 E 
LSE 2980 

2860 IF VAL(S$(6))<>0 THEN IF S$ 
(6)=MID$(N$(I) ,62,8) THEN 2870 E 
LSE 2 980 

2870 IF VAL(S$(7))<>0 THEN IF S$ 
(7)=MID$(N$(I) ,70,8) THEN 2880 E 
LSE 2980 

2880 IF VAL(S$(8))<>0 THEN IF VA 
L(S$(8))=>VAL(MID$(N$(I) ,70,8)) 
THEN 2890 ELSE 2980 
2890 IF VAL(S$(9))<>0 THEN IF VA 
L(S$(9))=<VAL(MID$(N$(I) ,70,8)) 
THEN 2900 ELSE 2980 
2900 IF VAL(S$(10) )<>0 THEN IF V 
AL(S$(10) )=<VAL(MID$(N$(I) ,70,8) 
) AND VAL(S$(11) )=>VAL(MID$(N$( 
I)»70,8)) THEN 2910 ELSE 2980 
2910 IF VAL(S$(12) )<>0 THEN IF S 
$(12)=MID$(N$(I) ,78,8) THEN 2920 

ELSE 2980 
2920 IF VAL(S$(13) )<>0 THEN IF V 
AL(S$(13) )=>VAL(MID$(N$(I) ,78,8) 
) THEN 2930 ELSE 2980 
2930 IF VAL(S$(14) )<>0 THEN IF V 
AL(S$(14) )=<VAL(MID$(N$(I) ,78,8) 



) THEN 2940 ELSE 2980 

2940 IF VAL(S$(15) )<>0 THEN IF V 

AL(S$(15) )=<VAL(MID$(N$(I) ,78,8) 

) AND VAL(S$(16))=>VAL(MID$(N$(I 

),78,8)) THEN 2950 ELSE 2980 

2950 LET STORE$(X)=N$(I) 

2960 LET H(X)=I 

2 970 X=X+1 
2980 NEXT I 
2990 Y=0:W=0 
3000 CLOSE #1 

3010 IF X>0 THEN OPEN "D",#2,"DA 

TA",3 2 

3020 IF X>0 THEN OPEN "D",#1,"NA 

MES",93 

3030 CLS 

3040 LOCATE 1,1 

3050 IF X=l THEN PRINT"THERE WAS 

(";X;") MATCH FOUND" 
3060 IF X>1 THEN PRINT"THERE WAS 

(";X;") MATCHES FOUND" 
3070 IF X<1 THEN PRINT"THERE WAS 

NO MATCHES FOUND" 
3080 FOR 1=130 TO 136 
3090 LOCATE 1 , 1-12 6 : PRINT A$(I) 
3100 NEXT I 
3110 Q$=INKEY$:IF Q$="" THEN 311 

9> 

3120 IF Q$<"1" OR Q$>"6" THEN 31 

10 

3130 IF Q$="4" AND X=0 THEN PRIN 

T "ILLEGAL COMMAND, NO NEXT RECOR 

D" :GOTO 3110 

3140 IF Q$<="5" AND X=0 THEN PR 

INT "ILLEGAL COMMAND, NO RECORD I 

N MEMORY": GOTO 3110 

3150 IF Q$="4" AND X=0 THEN PRIN 

T "ILLEGAL COMMAND, NO NEXT RECOR 

D":GOTO 3110 

3160 IF Q$<>"6" AND X=0 THEN PR 

INT "ILLEGAL COMMAND, NO MATCHES 

FOUND": GOTO 3110 

3170 ON VAL(Q$) GOTO 3190,3570,4 

310,4560,4650,6060 

3180 REM DISPLAY RECORD 

3190 T=l 

3200 T=l 

3210 Z=VAL(MID$(STORE$(Y) ,87,4) ) 

3220 FOR I=Z TO Z+103 

3230 GET #2,1 

3240 INPUT #2,B$(T) 

3250 IF B$(T)=DUMMY$ THEN B$ (T) = 
it ii 

3 2 60 W=W+1:T=T+1 
3270 NEXT I 

3 2 80 CLS 

3290 FOR 1=1 TO 16 

3300 LOCATE 1,I:PRINT A$(I);B$(I 

) 
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3 310 

3320 

320 

3330 

3340 

3350 

3360 

$(I) 

3370 

3380 

380 

3390 

3400 

3410 

$(D 

3420 

3430 

430 

3440 

3450 

3460 

$(I) 

3470 

3480 

480 

3490 

3500 

3510 

$(I) 

3520 

3530 

530 

3540 

3550 

3560 

3570 

3580 

3590 

3 600 

3610 

3620 



NEXT I 

Q$=INKEY$:IF Q$<>" " THEN 3 

IF Q$="Q" THEN 3540 

CLS 

FOR 1=17 TO 3 5 

LOCATE 1,1-16: PRINT A$(I);B 

NEXT I 

Q$=INKEY$:IF Q$<>" " THEN 3 

CLS 

FOR 1=3 6 TO 58 

LOCATE 1,1-36: PRINT A$(I);B 

NEXT I 

Q$=INKEY$:IF Q$<>" " THEN 3 

CLS 

FOR 1=59 TO 81 

LOCATE 1,1-59: PRINT A$(I);B 

NEXT I 

Q$=INKEY$:IF Q$<>" " THEN 3 

CLS 

FOR 1=82 TO 104 

LOCATE 1,1-82: PRINT A$(I);B 

NEXT I 

Q$=INKEY$:IF Q$<>" " THEN 3 

CLS 

GOTO 3080 

REM PRINTER ROUTINE 

T=l 

Z=VAL(MID$(STORE$(Y) ,87,4) ) 

FOR I=Z TO Z+103 

GET #2,1 

INPUT #2,B$(T) 

IF B$(T)=DUMMY$ THEN B$(T)= 



3 630 W=W+l:T=T+l 

3 640 NEXT I 

3650 PRINT #-2,CHR$(27) ;CHR$(22) 

3 660 CLS 

3 670 LOCATE 1,10: PRINT "ENSURE T 

OP OF PRINTER PAGE" 

3 680 LOCATE 1,12: PRINT " IS FLUS 

H WITH ROLLER" 

3 690 LOCATE 1,14: PRINT "PRESS (P 

) TO PRINT, OR (Q) TO QUIT" 

3 700 Q$=INKEY$ : IF Q$="" THEN 3 7 

00 

3710 IF Q$="Q" THEN 4290 

3720 IF Q$<>"P" THEN 3700 

3730 FOR 1=1 TO 47 

3740 PRINT #-2,CHR$(27) ;CHR$(54) 

3750 NEXT I 



3760 PRINT #-2,CHR$(15) ;CHR$(27) 

;CHR$(14) 

3770 PRINT #-2,CHR$(27) ;CHR$(21) 

3780 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3790 PRINT #-2, "FAMILY HISTORY I 

NFORMATION" 

3800 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3810 PRINT #-2,CHR$(14) ;CHR$(27) 

;CHR$(15) 

3820 FOR 1=1 TO 16 

3830 PRINT #-2,TAB(6) ;A$(I) ;B$(I 

) 

3840 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3 850 NEXT I 

3860 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3870 PRINT #-2,CHR$(15) ;CHR$(27) 

;CHR$(14) 

3880 PRINT #-2,"PERSONNAL NOTES" 

3890 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3900 PRINT #-2,CHR$(14) ;CHR$(27) 

;CHR$(15) 

3910 FOR 1=17 TO 35 

3920 PRINT #-2,TAB(6) ;A$(I) ;B$(I 

) 

3930 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3 940 NEXT I 

3950 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3960 PRINT #-2,CHR$(15) ;CHR$(27) 

;CHR$(14) 

3970 PRINT #-2, "PERSONAL FAMILY, 

FIRST MARRIAGE" 

3980 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

3990 PRINT #-2,CHR$(14) ;CHR$(27) 

;CHR$(15) 

4000 FOR 1=3 6 TO 58 

4010 PRINT #-2,TAB(6) ;A$(I) ;B$(I 

) 

4020 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(12) 

4030 NEXT I 

4040 PRINT #-2,CHR$(27) ;CHR$(90) 

;CHR$(36) 

4050 PRINT #-2,CHR$(15) ;CHR$(27) 

;CHR$(14) 

4060 PRINT #-2, "PERSONAL FAMILY, 

SECOND MARRIAGE" 
4070 PRINT #-2,CHR$(27) ;CHR$(90) 
;CHR$(12) 

4080 PRINT #-2,CHR$(14) ;CHR$(27) 
;CHR$(15) 
4090 FOR 1=59 TO 81 
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4100 PRINT #-2,TAB(6) ;A$(I) ;B$(I 


;CHR$(15) 


) 


4500 


FOR 1=1 TO 16 


4110 PRINT #-2,CHR$(27) ;CHR$(90) 


4510 


PRINT #-2,TAB(6) ;A$(I) ;B$(I 


;CHR$(12) 


) 




4120 NEXT I 


4520 


NEXT I 


4130 PRINT #-2,CHR$(27) ;CHR$(90) 


4530 


CLS 


;CHR$(12) 


4540 


GOTO 3080 


4140 PRINT #-2,CHR$(15) ;CHR$(27) 


4550 


REM DISPLAY NEXT RECORD 


;CHR$(14) 


4560 


Y=Y+1 


4150 PRINT #-2, "PERSONAL FAMILY, 


4570 


W=l 


THIRD MARRIAGE" 


4580 


X=X-1 


4160 PRINT #-2,CHR$(27) ;CHR$(90) 


4590 


IF X<>0 THEN 4 630 


;CHR$(12) 


4600 


PRINT "ILLEGAL COMMAND, THER 


4170 PRINT #-2,CHR$(14) ;CHR$(27) 


E IS 


NO NEXT RECORD " 


;CHR$(15) 


4610 


PRINT 


4180 FOR 1=82 TO 104 


4620 


GOTO 3110 


4190 PRINT #-2,TAB(6) ;A$(I) ;B$(I 


4630 


GOTO 3190 


) 


4640 


REM CHANGE RECORD 


4200 PRINT #-2,CHR$(27) ;CHR$(90) 


4650 


T=l 


;CHR$(12) 


4660 


Z=VAL(MID$(STORE$(Y) ,87,4) ) 


4210 NEXT I 


4670 


FOR I=Z TO Z+103 


4220 PRINT #-2,CHR$(27) ;CHR$(22) 


4680 


GET #2,1 


4230 FOR 1=1 TO 35 


4690 


INPUT #2,B$(T) 


4240 PRINT #-2,CHR$(27) ;CHR$(54) 


4700 


IF B$(T)=DUMMY$ THEN B$(T)= 


4250 NEXT I 


ii ii 




4260 LOCATE 1,22 


4710 


T=T+1:NEXT I 


4270 PRINT "PRESS (M) TO RETURN 


4720 


CLS 


TO MENU" 


4730 


FOR 1=1 TO 16 


4280 Q$=INKEY$:IF Q$o"M" THEN 4 

280 

4290 CLS 


4740 


LOCATE 1,1: PRINT A$(I);B$(I 


) 
4750 


NEXT I 


4 300 GOTO 3080 


4760 


Q$=INKEY$:IF Q$="" THEN 476 


4310 T=l 


% 




4 3 20 REM PRINT OUT PARTIAL RECOR 


4770 


IF Q$=" " THEN 4880 


D 


4780 


IF Q$o"C" THEN 4760 


4330 Z=VAL(MID$(STORE$(Y) ,87,4) ) 


4790 


R=1:C=0 


4340 FOR I=Z TO Z+103 


4800 


LOCATE C,R 


4350 GET #2,1 


4810 


IF R>16 THEN 4880 


4360 INPUT #2,B$(T) 


4820 


Q$=INKEY$:IF Q$="" THEN 482 


4370 IF B$(T)=DUMMY$ THEN B$(T)= 


9> 




ii ii 


4830 


IF Q$=CHR$(10) THEN R=R+1:G 


4380 W=W+1:T=T+1 


OTO 4 800 


4 390 NEXT I 


4840 


IF Q$<>CHR$(8) AND Q$OCHR$ 


4 400 CLS 


(9) THEN 4820 


4410 LOCATE 1,10: PRINT "ENSURE T 


4850 


LOCATE 12, R: PRINT " 


OP OF PRINTER PAGE" 




ii 


44 20 LOCATE 1,12: PRINT "IS FLUSH 


4860 


LOCATE 12, R: LINE INPUT B$ (R 


WITH ROLLER" 


) 




44 30 LOCATE 1,14: PRINT "PRESS (P 


4870 


GOTO 4800 


) TO PRINT, (Q) TO QUIT" 


4880 


CLS 


4440 Q$=INKEY$:IF Q$="" THEN 444 


4890 


CLS 


9> 


4900 


FOR 1=17 TO 35 


4450 IF Q$="Q" THEN 4530 


4910 


LOCATE 1,I-16:PRINT A$(I);B 


4460 IF Q$<>"P" THEN 4440 


$(I) 




4470 PRINT #-2,CHR$(15) ;CHR$(27) 


4920 


NEXT I 


;CHR$(14) 


4930 


Q$=INKEY$:IF Q$="" THEN 493 


4480 PRINT #-2,"FAMILY HISTORY I 







NFORMATION" 


4940 


IF Q$=" " THEN 5050 


4490 PRINT #-2,CHR$(14) ;CHR$(27) 


4950 


IF Q$<>"C" THEN 4930 
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49 60 R=17:C=0 

4970 LOCATE C,R-16 

4980 IF R>35 THEN 5050 

4990 Q$=INKEY$:IF Q$="" THEN 499 



5000 IF Q$=CHR$(10) THEN R=R+1:G 

OTO 4970 

5010 IF Q$OCHR$(8) AND Q$OCHR$ 

(9) THEN 4990 

5020 LOCATE 12 ,R-16 : PRINT " 



5030 

$(R) 

5040 
5050 
5060 
5070 
5080 

$(I) 
5090 
5100 

IS 

5110 
5120 
5130 
5140 
5150 
5160 



LOCATE 12,R-16 : LINEINPUT B 

GOTO 4970 

CLS 

CLS 

FOR 1=3 6 TO 58 

LOCATE 1,I-36:PRINT A$(I);B 

NEXT I 

Q$=INKEY$:IF Q$="" THEN 510 

IF Q$=" " THEN 5240 

IF Q$<>"C" THEN 5100 

R=3 6:C=0 

LOCATE C,R-36 

IF R>58 THEN 5240 

IF R=40 OR R=49 THEN R=R+1 



5170 Q$=INKEY$:IF Q$="" THEN 517 



5180 IF Q$=CHR$(10) THEN R=R+1:G 

OTO 5140 

5190 IF Q$<>CHR$(8) AND Q$<>CHR$ 

(9) THEN 5170 

5200 IF R>40 THEN C=0 ELSE C=12 

5210 LOCATE C ,R-3 6 : PRINT" 



5220 

(R) 

5230 

5240 

5250 

5260 

5270 

$(D 
5280 
5290 


5300 

5310 
5320 
5330 
5340 
5350 
5360 




LOCATE C,R-3 6:LINE INPUT B$ 

GOTO 5140 

CLS 

CLS 

FOR 1=59 TO 81 

LOCATE 1,I-59:PRINT A$(I);B 

NEXT I 

Q$=INKEY$:IF Q$=»» THEN 529 

IF Q$=" " THEN 5430 

IF Q$<>"C" THEN 5290 

R=59:C=0 

LOCATE C,R-59 

IF R>81 THEN 5430 

IF R=63 OR R=72 THEN R=R+1 

Q$=INKEY$:IF Q$="" THEN 53 6 



@ 



<« GIMMESOFT >» 

A new generation of CoCo III software 



FKEYS III 



(CoCo 
l/ll/lll] 



^ 



[CoCo III only 



Easily alter the contents of any palette without having to 
remember numbers or colors! Once configured, all six- 
teen palettes can be saved to disk as a single subroutine 
which may then be used in a basic program. 
(See Aug. '87 review) Disk £19.95 



was* 5 



SIXDRIVi 



(Coco 

i/ii/iii: 



A user friendly, user programmable function key utility 
that creates up to 20 function keys. Other features 
include an EDITOR. DOS mods, and DISABLE. Comes 
with an enhanced CoCo III version and it's 
EPROMable. (See April '87 review) 

Disk (latest version) £1 9.95 

P Multi-Label III 

(CoCo III only) 
An easy to use, versatile label creating program including 
many new CoCo III features. Even if you already own a 
label program, this one's a must for the III!! 
(See July '87 review) Disk £16.95 

Custom Palette Designer 



This machine language utility modifies DECB 1 .0, 1 .1 , or 
FKEYS III to allow the use of 3 double-sided drives (or 2 
double-sided drives and J S R'S RAMDISKS) as 6 
single-sided drives without ANY hardware mods. 
Includes 2 selectable drive assignments and it's 
EPROMable. 

Disk £1 6.95 

With purchase of FKEYS III £1 2.95 

With purchase of any JramR £ 9.95 

JramR 512K Upgrade 

(CoCo III only) ** 
#1010 JramR bare board, connectors, and 

software £39.95 

#1014 JramR assembled and tested with software, 

without memory chips £49.95 

#1012 JramR assembled and tested with software, 

51 2K memory £99.95 

(See June '87 review) 

► ►► PYRAMIX Hi (CoCo III only) 
Experience brilliant colors, sharp graphics, and 
hot action in this super machine language 
arcade game! $24.95 



«.# 



Technical assistance: 7pm to 9pm 
Orders: 9am to 9pm Eastern time 
On-line orders: Delphi's CoCo Sig 



GIMMESOFT 

P.O. Box 421 

Perry Hall, MD 21128 



Add £2.50 for shipping 

MD residents add sales tax 

Phone 301 -256-7558 
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5370 IF Q$=CHR$(10) THEN R=R+1:G 

OTO 53 30 

5380 IF Q$OCHR$(8) AND Q$<>CHR$ 

(9) THEN 5360 

5390 IF R>63 THEN C=0 ELSE C-12 

5400 LOCATE C,R-59 : PRINT" 

5410 LOCATE C,R-59 : LINE INPUT B 

$(R) 

5420 GOTO 5330 

5430 CLS 

5440 CLS 

5450 FOR 1=82 TO 104 

5460 LOCATE 1,1-82: PRINT A$(I);B 

$(D 

5470 NEXT I 

5480 Q$=INKEY$:IF Q$="" THEN 548 



5490 IF Q$=" " THEN 5620 

5500 IF Q$o"C" THEN 5480 

5510 R=82:C=0 

5520 LOCATE C,R-82 

5530 IF R>104 THEN 5620 

5540 IF R=8 6 OR R=95 THEN R=R+1 

5550 Q$=INKEY$:IF Q$="" THEN 555 



5560 IF Q$=CHR$(10) THEN R=R+1:G 

OTO 5520 

5570 IF Q$<>CHR$(8) AND Q$<>CHR$ 

(9) THEN 5550 

5580 IF R>86 THEN C=0 ELSE C=12 

5590 LOCATE C,R-82: PRINT " 

ii 

5600 LOCATE C,R-82:LINE INPUT B$ 

(R) 

5610 GOTO 5520 

5620 CLS 

5630 LOCATE 1,10: PRINT "PRESS (S 

) TO SAVE DATA ON DISK" 

5640 LOCATE 1,12: PRINT " (M 

) TO RETURN TO MENU" 

5650 Q$=INKEY$:IF Q$="" THEN 565 

5660 IF Q$="M" THEN 6030 

5670 IF Q$<>"S" THEN 5650 

5680 REM SAVE DATA TO DATA FILE 

5690 CLS 

5700 T=l 

5710 LOCATE 1 , 10 : PRINT "SAVING DA 

TA ON DISK" 

5720 IF LEN(B$(1) )<15 THEN B$(l) 

=B$(1)+" " :GOTO 5720 

5730 IF LEN(B$(1))>15 THEN B$(l) 

=LEFT$(B$(1) ,15) 

5740 IF LEN(B$(2) )<15 THEN B$(2) 

=B$(2)+" ":GOTO 5740 

5750 IF LEN(B$(2) )>15 THEN B$(2) 

=LEFT$(B$(2) ,15) 

5760 IF LEN(B$(3) )<15 THEN B$(3) 



=B$(3)+" ":GOTO 57 60 

5770 IF LEN(B$(3) ) >15 THEN B$(3) 

=LEFT$(B$(3) ,15) 

5780 IF LEN(B$(4))<8 THEN B$(4)= 

B$(4)+" ":GOTO 5780 

5790 IF LEN(B$(4))>8 THEN B$(4)= 

LEFT$(B$(4) ,8) 

5800 IF LEN(B$(5))<8 THEN B$(5)= 

B$(5)+" ":GOTO 5800 

5810 IF LEN(B$(5))>8 THEN B$(5)= 

LEFT$(B$(5) ,8) 

5820 IF LEN(B$(6))<8 THEN B$(6)= 

B$(6)+" ":GOTO 5820 

5830 IF LEN(B$(6))>8 THEN B$(6)= 

LEFT$(B$(6) ,8) 

5840 IF LEN(B$(7))<8 THEN B$(7)= 

B$(7)+" ":GOTO 5840 

5850 IF LEN(B$(7))>8 THEN B$(7)= 

LEFT$(B$(7) ,8) 

5860 IF LEN(B$(8))<8 THEN B$(8)= 

B$(8)+" ":GOTO 58 60 

5870 IF LEN(B$(8))>8 THEN B$(8)= 

LEFT$(B$(8) ,8) 

5880 FOR I=Z TO Z+103 

5890 IF LEN(B$(I))=0 THEN B$(I)= 

DUMMY$:GOTO 5910 

5900 IF I>8 AND LEN (B$ (I) ) <28 TH 

EN B$(I)=B$(I)+LEFT$(DUMMY$,28-L 

EN(B$(I))) 

5910 WRITE #2,B$(T) 

5920 PUT #2,1 

5930 IF T>9 THEN B$(T)=" " 

5940 T=T+1 

59 50 NEXT I 

59 60 REM SAVE DATA TO NAME FILE 

5970 E$=B$(1)+B$(2)+B$(3)+B$(4)+ 

B$(5)+B$(6)+B$(7)+B$(8)+STR$(Z) 

5980 WRITE #1,E$ 

5990 PUT #1,H(Y) 

6000 LOCATE 1,16: PRINT "DATA HAS 

BEEN SAVED ON DISK" 
6010 LOCATE 1,18: PRINT "PRESS (M 
) TO RETURN TO MENU" 
6020 Q$=INKEY$:IF Q$<>"M" THEN 6 
020 

6030 CLS 
6040 GOTO 3080 

6050 REM RETURN TO MAIN MENU 
6060 CLOSE #2 
6070 CLOSE #1 
6080 GOTO 300 

6090 REM SUB SCREEN DISPLAY ARRA 
Y 

6100 FOR 1=1 TO 13 6 
6110 READ Q$ 
6120 LET A$(I)=Q$ 
6130 NEXT I 
6140 GOTO 280 
6150 DATA LASTNAME ; , FIRSTNAME 
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;,MIDDLENAME; 

616)3 DATA GENERATION; , LINEAGE NO 

;, BAPTIZED ; 

6170 DATA BORN DATE ; , DIED DATE 

;, FATHER LST; 

6180 DATA " FST;"," 

MID;", MOTHER LST ; 

6190 DATA " FST;"," 

MID;", NO. OF BRS ; 

6200 DATA NO. OF SIS;, GOD FATHER 

;,GOD MOTHER; 

6210 DATA NICKNAME 

;, RESIDENCE ; 

6220 DATA B'RD LOC 

;, SCHOOLING ; 

62 30 DATA " 



; , BORN LOC 
; , RELIGION 



M M 
I 



II II 
/ 



6240 DATA OCC/TRADE 

; " , EMPLOYMENT ; 
6250 DATA " 

; " , ABROAD 
6260 DATA " 

; , LASTNAME ; 
6270 DATA FIRSTNAME 
;,MAR'D DATE; 

6280 DATA MAR'D LOC ; , BORN DATE 
; SONS NAME 
6290 DATA 
6300 DATA 



;", MILITARY 
;,MIDDLENAME 



ii ii ii 



ii ii 



ii ii ii ii ii 



6310 DATA " "," 



",BORN DATE ; DA 



ii ti ii ii 
/ / 

ii ii 



ii 
ii ii 



" "," ", LASTNAME 



; ,MIDDLENAME 



ii ii 

i 
ii ii 



UGHTERS NAME 

6320 DATA " 

6330 DATA ' 

6340 DATA 

6350 DATA FIRSTNAME 

; , MAR ' D DATE ? 

63 60 DATA MAR'D LOC ; , BORN DATE 

; SONS NAME 

6370 DATA 

63 80 DATA 
6390 DATA 
UGHTERS NAME 
6400 DATA " " 
6410 DATA 
6420 DATA 

6430 DATA FIRSTNAME 
;, MAR'D DATE; 
6440 DATA MAR'D LOC 
; SONS NAME 
6450 DATA " "," 

64 60 DATA 



ii ii n 
/ 

ii ii ii 
i 

ii ii ii 
i 



" , BORN DATE ; DA 



ii ii ii ii 
ii ii ii ii ii ii 



ii ii ii 
i 



" , LASTNAME 



; ,MIDDLENAME 
; , BORN DATE 



ii ii ii 
/ 



ii ii ii 

ii ii 
i 



ii 



6470 DATA " "," 



",BORN DATE ; DA 



UGHTERS NAME 
6480 DATA " " 
6490 DATA 
6500 DATA " 
BE BY; 
6510 DATA " 
FIRSTNAME ; 



ii 
i 
ii ii ii 

i 
ii n ii 

/ 



ii ii ii 

i 
ii it ii 



", SEARCHING CAN 
", LASTNAME ;, 



6520 DATA MIDDLENAME ;, GENERATION 

; , LINEAGE # ; 

6530 DATA BAPTIZED ;," "," 

BORN DIED" 
6540 DATA SPECIFIC ; , 

UP TO ; , AFTER 

6550 DATA FROM ; , 

TO 

6560 DATA " " 

6570 DATA DATES MUST BE ENTERED 

AS ; , " " , YEAR MONTH DAY 

; YYYYMMDD 
6580 DATA " " 

6590 DATA 1/ENTER DATA, 2/SEARCH 
FILES 

6600 DATA 3/QUIT," " 
6610 DATA " " 

6620 DATA 1/DISPLAY RECORD, 2/PRI 
NTOUT COMPLETE RECORD 
6630 DATA 3/PRINTOUT PARTIAL REC 
ORD,4/DISPLAY NEXT RECORD 
6640 DATA 5/CHANGE RECORD, 6/RETU 
RN TO MENU 
6650 DATA " " 
6660 RETURN 
6670 CLS 
6680 CLOSE #1: CLOSE #2 





If you're stitt plugging printed 
circuit cards into your 

CoCol 

CoCo2 

CoCo3 

zoitfiout a card guide . . . 

CUT IT OUT. 

Write or call for a free brochure describing 
printed circuit cards and guides designed 
for the CoCo expanstion port. Bare cards 
or with connector for disk controller. 

206 782-6809 
ROBOTIC ^^MICROSYSTEMS 

BOX 30807 SEATTLE, WA 98103 
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6690 PRINT"A MAJOR SYSTEM ERROR 

HAS OCCURED" 

6700 PRINT" 






6710 PRINT" 1/CHECK DISK DRIVE" 
6720 PRINT"2/CHECK INFORMATION B 
EING ENTERED" 



6730 PRINT"3/CHECK PRINTER" 

6740 PRINT 

6750 PRINT"PRESS (SPACE) TO REST 

ART PROGRAM" 

6760 Q$=INKEY$:IF Q$<>" " THEN 

6760 

6770 GOTO 30,0 



// 




" 310 ... 


...123 


490 ... 


...118 


650 ... 


...244 


790 ... 


...144 


END 


241 





Listing 2: CHART 

90 REM (C) BRIAN LE BLANC 

95 REM JANUARY 24 1987 

100 CLS 

110 PRINT #-2,CHR$(30) 

120 PRINT #-2,CHR$(27) ;CHR$(22) 

130 WIDTH 40 

140 PRINT"THIS PROGRAM WILL MAKE 

PRINTOUTS OF" 
150 PRINT"THE GENEOLOGY CHART" 
160 PRINT" 



170 PRINT "HOW MANY COPIES OF TH 

E CHART" 

180 LINEINPUT Q$ 

190 LET PGONE=VAL(Q$) 

200 PRINT" 



•ENSURE TO 



210 LOCATE 1,10: PRINT 
P OF PRINTER PAGE" 

220 LOCATE 1,12: PRINT " IS FLUSH 
WITH ROLLER" 

2 30 LOCATE 1,14: PRINT "PRESS (P) 
TO PRINT, OR (Q) TO QUIT" 

240 Q$=INKEY$ : IF Q$="" THEN 240 

250 IF Q$="Q" THEN 10,00 

260 IF Q$o"P" THEN 240 

270 FOR 1=1 TO 50: PRINT #-2,CHR$ 

(27) ;CHR$(54) :NEXT I 

280 G$=CHR$(95) 

290 A$=G$+G$+G$+G$+G$+G$+G$+G$+G 

$+G$+G$+G$+G$ 

300 B$=CHR$(240)+CHR$ (241) 

310 C$=CHR$(246)+CHR$(241) 

320 D$=CHR$(241)+CHR$(249) 

330 E$=CHR$(62) 

340 F$=CHR$(245) 

3 50 FOR J=l TO PGONE 

360 PRINT#-2,CHR$(27) ;CHR$(14) ;T 
AB ( 1 5 ) ; " LINEAGE CHART " ; CHR$ (27); 
CHR$(15) 



370 PRINT#-2,TAB(71) ; "PAGE ; " ;G$ ; 

G$;G$ 

380 PRINT#-2 

PRINT#-2 

PRINT#-2,TAB(64) 

PRINT#-2,TAB(64) 



390 

400 

410 

A$ 

420 

430 



PRINT#- 
PRINT#- 

A$;TAB(64) ; 

440 PRINT#- 

A$ 

450 

4 60 

470 



PRINT#- 
PRINT#- 
PRINT#- 

A$;TAB(48) 

480 PRINT#- 

F$;TAB(64) ; 

490 PRINT#- 

C$;A$;D$ 

500 PRINT#- 

A$;TAB(64) ; 

510 PRINT#- 

A$ 

520 

530 

540 

B(64 



PRINT#- 
PRINT#- 
PRINT#- 
) ;B$;A$ 
550 PRINT#- 
A$;TAB(32) ; 

;A$ 

560 PRINT#- 
F$;TAB(48) ; 
570 PRINT#- 
F$;TAB(48) 
;C$;A$;E$ 
580 PRINT#- 
F$;TAB(48) 
590 PRINT#- 
F$;TAB(48) 
600 PRINT#- 
C$;A$;D$ 
610 PRINT#- 
A$;TAB(48) ; 
620 PRINT#- 
F$;TAB(64) 
630 PRINT#- 
C$;A$;D$ 
640 PRINT # - 
A$;TAB(64) 



2, TAB (48) 
2, TAB (48) 
C$;A$;E$ 
2,TAB(48) 

2, TAB (48) 
2,TAB(32) 
2 , TAB (32) 
F$;TAB(64 
2, TAB (32) 
F$;TAB(66 
2,TAB(32) 

2,TAB(32) 
C$;A$;E$ 
2 , TAB (32) 

2, TAB (32) 
2 , TAB (32) 
2,TAB(16) 

;E$ 

2, TAB (16) 
F$;TAB(64) 



B$;A$;E$ 
F$;TAB(66) ; 



B$;A$;D$ 
F$;TAB(50) ; 

F$;TAB(66) ; 

F$ 

B$;A$;D$ 
F$;TAB(34) ; 
;B$;A$;E$ 
F$;TAB(48) ; 
;A$ 
F$;TAB(48) ; 

F$;TAB(50) ; 

F$;TAB(66) ; 

F$ 
F$ 
B$;A$;D$;TA 

F$;TAB(18) ; 
;F$;TAB(66) 



2 ,TAB(16) ;F$;TAB(32) ; 
B$;A$;D$ 
2, TAB (16) ;; 
F$;TAB(50) 



:F$;TAB(32) ; 
;A$;TAB(64) 



:F$;TAB(32) ; 
;A$ 
F$;TAB(32) ; 



2 ,TAB(16) 

F$;TAB(66) 

2, TAB (16) 

F$ 

2 , TAB ( 16 ) ; F$ ; TAB (32); 



2, TAB (16) ; 
F$;TAB(64) 
2, TAB (16) ; 
F$;TAB(66) 
2, TAB (16) ; 



F$;TAB(34) ; 
;B$;A$;E$ 
F$;TAB(48) ; 
;A$ 
F$;TAB(48) ; 



2 , TAB ( 16 ) ; F$ ; TAB ( 50 ) ? 
C$;A$;E$ 
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650 PRINT#-2,TAB(16) ;F$;TAB(66) ; 

A$ 

660 PRINT#-2,TAB(16) ;F$ 

670 PRINT#-2,TAB(16) ;F$ 

680 PRINT#-2,TAB(2) ; A$ ; D$ ;TAB (64 

) ;B$;A$;E$ 

690 PRINT#-2,TAB(2) ;A$;TAB(16) ;F 

$;TAB(64) ;F$;TAB(66) ;A$ 

700 PRINT#-2,TAB(16) ;F$;TAB(48) ; 

B$;A$;D$ 

710 PRINT#-2,TAB(16) ;F$;TAB(48) ; 

F$;TAB(50) ;A$;TAB(64) ;C$;A$;E$ 

720 PRINT#-2,TAB(16) ;F$;TAB(48) ; 

F$;TAB(66) ;A$ 

730 PRINT#-2,TAB(16) ;F$;TAB(48) ; 

F$ 

740 PRINT#-2 ; TAB(16) ;F$;TAB(32) ; 

B$;A$;D$ 

750 PRINT#-2,TAB(16) ;F$;TAB(32) ; 

F$;TAB(34) ;A$;TAB(48) ; F$ ;TAB ( 64 ) 

• ge • A$ • E$ 

760 PRINT#-2,TAB(16) ;F$;TAB(32) ; 

F$;TAB(48) ;F$;TAB(64) ;F$;TAB(66) 

;A$ 

770 PRINT#-2,TAB(16) ;F$;TAB(32) ; 

F$;TAB(48) ;C$;A$;D$ 

780 PRINT#-2,TAB(16) ; F$ ;TAB (32) ; 

F$;TAB(50) ;A$;TAB(64) ;C$;A$;E$ 

790 PRINT#-2,TAB(16) ;F$;TAB(32) ; 

F$;TAB(66) ;A$ 

800 PRINT#-2,TAB(16) ;F$;TAB(32) ; 

F$ 

810 PRINT#-2,TAB(16) ;F$;TAB(32) ; 

F$ 

820 PRINT#-2,TAB(16) ; C$ ; A$ ; D$ ;TA 

B(64) ;B$;A$;E$ 

830 PRINT#-2,TAB(18) ;A$ ;TAB (32) ; 

F$;TAB(64) ;F$;TAB(66) ;A$ 

840 PRINT#-2,TAB(32) ;F$;TAB(48) , 

B$;A$;D$ 

850 PRINT#-2,TAB(32) ;F$;TAB(48) ; 

F$;TAB(50) ;A$;TAB(64) ;C$;A$;E$ 

860 PRINT#-2,TAB(32) ;F$;TAB(48) ; 

F$;TAB(66) ;A$ 

870 PRINT#-2,TAB(32) ;F$;TAB(48) ; 

F$ 

880 PRINT#-2,TAB(32) ;C$;A$;D$ 

890 PRINT#-2,TAB(34) ;A$;TAB(48) ; 

F$;TAB(64) ;B$;A$;E$ 

900 PRINT#-2,TAB(48) ;F$;TAB(64) ; 

F$;TAB(66) ;A$ 

910 PRINT#-2,TAB(48) ;C$;A$;D$ 

920 PRINT#-2,TAB(50) ;A$;TAB(64) ; 

C$ * A$ " E$ 

930 PRINT#-2,TAB(66) ;A$ 

940 FOR 1=1 TO 8 : PRINT#-2 , CHR$ ( 

27) ;CHR$(54) : NEXT I 

950 NEXT J 

1000 END /R\ 



Now Create Your Own Signs, 
Banners, and Greeting Cards. 



Introducing The 
Coco Graphics Designer 

Last Christmas we introduced our 
COCO Greeting Card Designer program 
(■ee review April 86 Rainbow). It ha* 
been eo popular that we've now 
expanded it into a new program called 
the COCO Graphics Deaigner. Ths> 

Coco Graphlci Deaigner produce! 
greeting cardi plua banners and eigni. 
Thie program will further increase the 
uiefullneia and enjoyment of your dot 
matrix printer. 

The Coco Graphics 

Designer allowi you to mix text and 

pictures In all your creations. The 
program feature* picture, border, and 
character font editors, eo that you can 
modify or expand the already built In 
libraries. Plus a special "grabber" utility 
is included to capture areas of high 
resolution screens for your picture 
library. 



Requirements: a Coco or Coco I! 
with a minimum of 32K, One Disk Drive 
(Disk Ext. BASIC 1.0/l.l.ADOS, or 
JDOS). Printers supported include 
Epson RX/FX, GEMINI 10X, 3G-10, 
NX-10, C-Itoh 8510, DMP-100/ 130/ 
400/ 430, Seikosha CP-100/260, Legend 
B08 and Gorilla Bannana. 3end a SASE 
for complete list of compatible printers. 
#C332 Coco Graphics Designer $20.95 



Over 100 More Pictures 

An optional supplementary library 

diskette containing over one hundred 
additional pictures is available. 

#C333 Picture Disk #1 114.96 



Colored Paper Packs 

Now available are packs containing 120 
sheets of tractor-feed paper and 4'1 
matching envelopes in assorted bright 
RED, GREEN, and BLUE. Perfect f'.r 
making your productions unforgettable. 
#C274 Paper Pack S10.9S 




■IAFP^i 



(ICON 
UNIT 

ffillj 

MUFFIN 



With Zebra's Coco Graphics Designer It's easy and enjoyable 
making your own greeting cards, signs, and banners. 




NEWS FLASH! 

CGP-220 and DMP-105 

NOW SUPPORTED 



As of June 1, 19S7 we are 
shipping version 2.3 o-f the 
CoCo Graphics Designer. This 

version includes drivers -for 
the CGP-220 and DMP-105 

printers, and improved menu 

dialogs -for single disk drive 
users. By the time this issue 

appears in print we will 

probably also have added 

Okidata printer drivers — check 
with us i-f you have an Okidata. 



Ordering Instructions: All ord«n 

add 13.00 Shlppini ti Handling. UPS 
COO add «S UO. VISA/MC Accepted. 
NY rMldanti add iilu tax. 



Zebra Systems, Inc. 

78-06 Jamaica Ave. 

Woodhaven, NY 11421 

(718)296-2385 
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I Wishing W ell 



16K ECB 




Understanding Verb Use 



By Fred B. Scerbo 
Rainbow Contributing Editor 



Editor's Note: If you have an idea for 
the " Wishing Well, " submit it to Fred 
c/o THE RAINBOW. Remember, keep 
your ideas specific, and don 7 forget this 
is BASIC. All programs resulting from 
your wishes are for your use, but remain 
the property of the author. 



I'd like to offer my thanks to all of 
you who sent letters of encourage- 
ment with suggestions on new edu- 
cational programs. Judging from my 
mail, many of you have enjoyed our Life 
Skills series as well as our newer series 
on How Your Body Works. 

I regret that 1 cannot offer individual 
responses to your kind letters; however, 
1 am sure all of you would rather I spent 
what little time I have available for 
programming rather than for corre- 
sponding, especially when many re- 
quests for help with program bugs are 
simply a result of incorrect typing. 

With your letters and suggestions in 
mind, 1 am presenting a slightly differ- 



Fred Scerbo is a special needs instructor 
for the North Adams Public Schools in 
North Adams, Massachusetts. He holds 
a master's in education and has pub- 
lished some of the first software avail- 
able for the Color Computer through 
his software firm, Illustrated Memory 
Banks. 



ent educational program this month, 
titled Conjugate Instructor. It will help 
with some English grammar skills that 
are too often neglected by software 
writers: the sometimes confusing skill of 
conjugating verbs, both regular and 
irregular. This program will allow you 
to study the various forms of the verb 
"be" as used in the present, past, future, 
present perfect, past perfect and future 
perfect tenses. The best part of Conju- 
gate Instructor, unlike some other 
"Wishing Well" programs, is that you 
add absolutely nothing to it in terms of 
data. The program is designed to gener- 
ate its own text sample sentences. The 
random possibilities are great, in fact. 
With all of its features, it is designed to 
keep from constantly repeating the 
same examples and, hence, boring you 
to death. 

Why Verbs 

About four years ago 1 listed a pro- 
gram in our second "Wishing Well" 
called VerbQuiz, which dealt with 
irregular verbs in the present, past and 
past participle. It was a relatively simple 
program that required you to supply the 
three forms of any irregular verbs you 
wanted to have the program quiz. You 
would then store these verbs in DATA 
statements at the end of the program, 
which would generate sentences such as: 

Today 1 eat it. 

Yesterday I ate it. 

I have eaten it many times. 



The verbs you selected would fit into 
sample sentences such as the ones 
above. While the program is a valuable 
tool in grammar education, it is limited 
to using irregular verbs (i.e., verbs that 
change in each of their tenses). There is 
little sense in using verbs that do not 
change in their written form, such as: 

Today I read it. 

Yesterday I read it. 

I have read it many times. 

As you can see, all the responses 
would be the same. I have always 
wanted to go one step further, but I 
haven't really had the need to develop 
any new English programs, since for 
most of the last few years 1 have been 
teaching either math or, more recently, 
science and history to my students. 

Some readers suggested I develop 
more programs along this line, but the 
spark just wasn't there. This summer, 
things changed a bit. A good friend 
asked me to tutor her son, Kevin, during 
the summer in both math and English. 
In fact, Kevin is an average student. His 
mother just wanted him to get a little 
help before returning to school in the 
fall for his final year in middle school. 

As part of Kevin's work, I dug up the 
old VerbQuiz and let him work with it. 
As you all know, since necessity is the 
mother of invention, the stimulus I 
needed to create a new English gram- 
mar program was no longer lacking. 
Therefore, Kev, this one's for you! 
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TQM MIX'S MINI-CATALOG 

NOVASOFT 

A Tom Mix Company 




•Flight 16 



Our very newest flight simulator. A full 
instrument aircraft that features the 
following: 

• Works with all COCO's 

• Realistic flight controls 

• Flight editor included to change flight 
parameters 

• Design your own airports and flight 
areas 

• Flies like Cessna 150 

• Full graphics & sound 

Joysticks Required $34.95 
Specify Tape or Disk 




*P-51 Mustang 
Attack/Flight Simulation 

The ultimate video experience! Link two 
CoCo's together by cable or modem, and 
compete against your opponent across 
the table OR across the country! (Both 
computers require a copy of this program). 
The P-51 flight simulator lets you fly this WWII 
attack fighter in actual combat situations 
against another player, OR a non com- 
batant computer drone. 

32K Ma ch ine Lang uage 

Joysticks Required $34.95 

Specify Tape or Disk 

Educational 

* Teachers Database II -Allows teachers 
to keep computerized files of students. 
Recently updated with many new features! 

• Up to 1 00 students, 24 items per student 

• Many easy-to-follow menus 

• Records can be changed, deleted, 
combined 

• Statistical analysis of scores 

• Grades can be weighed, averaged, 
percenlaged 

• Individual progress reports 

• Student seating charts 

• Test result graphs/grade distribution 
charts 

64K TDBII $59.95 Disk Only 

32KTDB $42.95 



•Worlds of Flight 
Small Plane Simulation 

Real-time simulation generates panoramic 
3-D views of ground features as you fly 
your sophisticated plane in any of nine 
different "worlds." Program models over 35 
different aircraft/flight parameters. Realistic 
sound eflectstoo! Manual included helps 
you through a typical short flight. 
32K Mac hine Language 
Joystick s Requ i red $ 34.95 
Specify Tape or Disk 

•Goldfinder 

Here's the quality you've come to expect from 
TOM MIX. Endless possibilities await you in 
this exciting new creation. Move over 
Goldrunner and Loderunner, here comes 
GOLDFINDER 
32K & Joysticks Required Disk S22.95 

* Dragon Slayer— Defeat the dragon by 
finding your way through a mountain maze. 
Gather treasure but avoid the deadly traps! 
160 exciting screens. 

32K & Joystick or Keyboard 
Disk $24.95 



*COCO 3 Compatible 

TOM MIX SOFTWARE 

P.O. Box 201 

Ada, Michigan 49301 

616/676-8172 




•Wizard's Den 

Another of our outstanding graphic 
adventures! You must recover the Gem 
of Damocles stolen by the Evil Wizard 
and hidden in his den. Dare to fight your 
way through eight levels of mazes and 
dangers. But beware the Wizard's 
magic. He can make you see things thai 
don't exist! Don't stray from the path or 
it's certain death! 
64K Joystick or Keyboard $22.95 
Disk only 



" Sailor Man-Defeat the bigfatbadguy and 


win Elsie's heart 


Super 


graphics. 


64K 




$27.95 


' The King— 






32K 




$27.95 


' Draconian— 






32K 




$22.95 


• Ms. Maze- 






32K 




$22.95 


• Kater Pillar II- 






16K 




$22.95 


' Warehouse Mutants- 




16K 




$21.95 


' Buzzard Bait— 






32K 




$22.95 


All Above 


Specify Tape or Disk 




•Video Cards & Keno 

(Color III Only) 

Four outstanding games on one disk: 
Poker, Jokers Wild, Blackjack and Keno! 
So real you expect Wayne Newton to 
walk by! Never before have you seen 
such excellent graphics and realistic 
movement as that created in this 
package. Wanna Bet? 

$29.95, Disk only 

Also available — Vegas Slots" (Color III 
only) — Same outstanding graphics! 
Seven of the most popular slot machine 
games found in Vegas. 

Keyboard or joystick $34.95 

Disk only 

• Many more titles-write for free catalog! 

Ordering Information 

■Call us at 616/676-8172 
for Charge Card orders 

• Add $3.00 postage and 
handling 

- Ml residents add 4% 
sales tax 

• Authors-We pay top 
royalties! 
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The Program 

Conjugate Instructor, unlike Verb- 
Quiz, is designed to be instructional as 
well as a quiz program. It is written 
entirely with Color BASIC commands, 
so it should work on the Color Comput- 
er 1.2 and 3. (It should even work on 
the MC-10 with 20K, but I have not had 
a chance to test it out on that machine. 
Any of you with an MC-10 are welcome 
to try it; you will have to change the - 
TIMER command to -9999.) 

This program uses quite a few multi- 
dimensional arrays to store the various 
tenses and sentence fragments. By 
generating random numbers to select 
the arrays, it can create an endless 
number of sentences with different 
tenses, openings and endings. 

One drawback is the time it takes to 
set up these arrays. I have included a 
PLEASE STAND BY screen so you do not 
think your computer has locked up. 
There is quite a bit of data to read in. 
and each verb is also recreated in an 
inverse video form so you can obtain a 
flashing effect on the screen. 

When typing in the program, you will 
notice some lowercase letters in the 
listing. To type these in on your CoCo, 
press SHIFT-O to gel into lowercase. The 
letters will appear as inverse video on 
the screen. Press SHIFT-O again to return 
to uppercase. (This may be old hat to 
most of you, but I have to assume we 
may have a few new CoCo users out 



there who do not know these little 
tricks. I always get a few letters about 
these simple things each month.) 

Running the Program 

Upon running the program, you will 
be asked if you want to review (R) or 
quiz (Q). If you press R, the program 
will present an explanation of each of 
the tenses with the correct use in each 
person, both singular and plural. Press- 
ing ENTER will advance you to each new 
screen. At the end of the review, the 
program will return to the start so you 
may go through the review part again 
if you want. 

If you press Q. the program will then 
ask you to select a difficulty level, 1 
through 6. The levels correspond to the 
various tenses in order: 

1 ) Present 

2) Past 

3) Future 

4) Present Perfect 

5) Past Perfect 

6) Future Perfect 

After selecting a level, you will be 
asked if you want to have the levels 
assorted. If you press N for no, the 
program will quiz you only on the level 
you selected. If you press Y for yes, then 
the program will jumble the tenses up 
to the level you selected. 

After making this choice, the pro- 
gram will ask you to PLEASE STAND BY. 



The screen will next read something 
like: 

STATEMENT NUMBER 1. 

HOW WOULD YOU CONJUGATE<BE> 

IN THE PRESENT TENSE? 



HE . 
NOW. 



SITTING QUIETLY 



YOUR ANSWER=> 

You must type in your response ex- 
actly as it should fit into the blank. The 
screen will inform you whether your 
answer is correct or incorrect. In either 
case, the sentence will be reprinted on 
the screen with the correct answer 
Hashing in the sentence. This serves as 
a good visual indicator. You may con- 
tinue to the next problem by pressing 
ENTER. To check your score, press the 
(@) key. The score card will then come 
up on the screen. To continue with the 
program, press C. You may rerun the 
program by pressing Y for yes or end 
by pressing N for no. You may do as 
many problems as desired. 

Conclusion 

This program was valuable to me in 
my work with Kevin. I hope you will let 
mc know what you think of it and will 
also come up with some suggestions on 
how we can take this type of program 
even further. □ 



y^ 


2,, 42, 44, 44, 45, 44, 40, 42,, 37, 37, 4 


<y/ 40 141 395 118 


-i 4,44,44,37,44,44,42,44,46,40,46, 


110 189 495 132 


44 


205 101 530 84 


20 DATA42, ,32,40,42, ,37,37,45,32 


300 119 END 202 


,42, ,,37, ,,42, ,37, 37, ,,,37, ,,42, 




,42, ,42, 




25 DATA42, ,, ,42, ,37,37,36,42,42, 


/ i ~' ' i i i Q*- 1 i J ' / J ' / / / i ~> ' i i i 4 » / i 4 i. i 


The listing: VERBTEST ,42, 


30 DATA42, ,, ,42, ,37,37, ,45,42, , , 


1 REM************************** 37, ,,42, ,37, 37, ,35, 35, 37, 35, 35, 4 


2 REM* CONJUGATE INSTRUCTOR * 2, ,42, ,43,35 


3 REM* CONJUGATING <BE> * 35 DATA42 , , , , 42 , , 37 , 37 , , 36 , 42 , , , 


4 REM* BY FRED B.SCERBO * 37 , , , 42 , , 37 , 37 , , , 37 , 37 , , 32 , 42 , , 4 


5 REM* 60 HARDING AVE * 2,, 42, 


6 REM* NORTH ADAMS, MA 01247 * 40 DATA43 , 35 , 35 , 42 , 43 , 35 , 39 , 37 , 3 


7 REM* COPYRIGHT (C) 1987 * 2 , 32 , 42 , 37 , 35 , 39 , , , 43 , 35 , 39 , 37, 3 


8 REM* DEDICATED TO KEVIN * 5 , 35 , 39 , 37 , , , 42 , , 42 , 32 , 43 , 35 


9 REM************************** 45 DATA76,78,72,79,66,74,78,76,7 


1)3 CLEAR2 200:CLS0:FORI=1TO3 2:PRI 6, 68, 76,78, 76, 69, 76,76,74, 74,, 74 


NTCHR$ ( 188 ) ; :NEXT: F0RI=1T0288 :RE ,78,76,72,76,77,76,72,78,77,69,7 


ADA:PRINTCHR$(A+12 8) ;:NEXT:FORI= 6,77 


1T03 2 :PRINTCHR$ (188) ;: NEXT 50 DATA, 74 , , 74 , 77 , 74 , 76 , 76 , 77 , , , 


15 DATA46,44,44,42,46,44,45,37,4 74 , , 69 , 76 , 78 , 72 , 74 , , 74 , 74 , , , , 69 , 
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, ,74,69,69,76,78 

55 DATA76, 76, 72, 72, ,72,76,76,76, 
,,72,, 68,, 76, 72 ,76, 76, 72, 76, 76, 7 
2, ,68, , ,76,76,68, ,76 

60 PRINT@357," CONJUGATION OF < 

BE> "; 

65 PRINT@389," BY FRED B.SCERB 

o '•; 

70 PRINT@421," COPYRIGHT (C) 19 

87 " ; 

75 PRINT@453," <R>EVIEW OR <Q>U 

IZ "; 

80 X$=INKEY$ :MU=RND( -TIMER) : IFX$ 

=""THEN80 

85 IFX$="R"THEN RV=l:GOT0145 

90 IFX$= M Q"THEN RV=0:GOTO100 

95 GOTO80 

100 PRINT@453," DIFFICULTY (1 - 

6) "; 
105 X$=INKEY$:IFX$=""THEN105 
110 XX=VAL(X$) :IFXX>6THEN105 
115 IFXX<1THEN105 
120 PRINT@453," ASSORTED (Y / 

N) "; 
125 X$=INKEY$:IFX$=""THEN125 
130 IFX$="Y"THEN SS=l:GOT0145 
135 IFX$="N"THEN SS=0 : GOT0145 
140 GOT0125 

145 SW=30:CLS:PRINT@232, "PLEASE 
STAND BY"; 

150 DIM N$(8) ,T$(6,8) ,WH$(6,6) ,L 
K$(15) ,CJ$(6) ,RV$(6,8) ,EX$(6) 
155 GOSUB160:GOTO215 
160 F0RI=1T08:READN$(I) :NEXT 
165 F0RI=1T08 : READT$ (1,1): NEXT 
170 F0RI=1T08:READT$(2,I) :NEXT 
175 READQ$:F0RI=1T08:T$(3,I)=Q$: 
NEXT 

180 F0RI=1T03 : READT$ (4,1) : NEXT : T 
$(4,4)=T$(4,3) :T$(4,5)=T$(4,3) :R 
EADQ$ : FORI=6T08 : T$ ( 4 , I ) =Q$ : NEXT 
185 READQ$,V$:F0RI=1T08:T$(5,I)= 
Q$:T$(6,I)=V$:NEXT 

190 F0RY=1T06:F0RI=1T06:READWH$( 
Y,I) :NEXTI,Y 

195 F0RI=1T015:READLK$(I) :NEXT:F 
0RI=1T06:READ CJ$ (I) : NEXT: FORI=l 
T06:READ EX$(I):NEXT 
200 F0RI=1T06:F0RY=1T08:Q=LEN(T$ 
(I,Y) ) :FORZ=lTOQ:H=ASC(MID$(T$(I 
,Y) ,Z,1) )+32:IFH=64THENH=32 
205 RV$(I,Y)=RV$(I,Y)+CHR$(H) :NE 
XTZ,Y,I 
210 RETURN 
215 IF RV=0 THEN275 
220 F0RI=1T06:CLS: PRINT :JK$=" " 
+EX$ ( I ) : G0SUB3 50 : PRINT 
225 PRINT" ";N$(1)" "T$(I,1) 
230 PRINT" ";N$(2)" "T$(I,2) 



235 PRINT" ";N$(3) ","N$(4) ","N 

$(5)" "T$(I,3) 

240 PRINT 

245 PRINT" ";N$(6)" "T$(I,6) 

250 PRINT" ";N$(7)" "T$(I,7) 

255 PRINT" ";N$(8) M "T$(I,8) 

2 60 X$=INKEY$:IFX$=""THEN2 60 

265 NEXTI 

270 RUN 

275 CLS:A=RND(8) :B=RND(XX) :C=RND 

(6) :D=RND(15) :IFA=5 THEN D=l 

2 80 IF SS=0 THEN B=XX 

285 CR$=" "+N$(A)+" "+T$(B,A)+" 
"+LK$(D)+" "+WH$(B,C)+".":P$=" 
"+N$(A)+" "+LK$(D)+" "+W 

H$(B,C)+"." 

290 FL$=" "+N$(A)+" "+RV$(B,A)+ 

" "+LK$(D)+" "+WH$(B,C)+"." 

295 KK=KK+1:CLS:PRINT§3 3, " STATE 

MENT NUMBER " ; KK ; " . » 

300 PRINT: PRINT" HOW WOULD YOU 

CONJUGATE <BE> IN THE ";CJ$(B 

) ;" TENSE?" 

305 PRINT§192, ""; : JK$=P$ : GOSUB35 



310 PRINT: PRINT: PRINT" YOUR ANS 

WER=> " ; : LINEINPUT YR$ 

315 PRINT: IF YR$=T$ (B, A) THEN NR= 

NR+1: PRINT" YOU ARE CORRECT !!" 



GRAFPLOT 



NEW ■ — THE 

GRAFPLOT DEMOl 

• 9.00 DISK t, TAPE "• 

REFUND W/PURCHABE.* 

COMPATIBLE £! 

WITH COCO 3 J 

W 
30 DAY 

UNCOND I T I DNAL S, 
MONEY— BACK z j 

SUARANTEE • • ~ 

/^\ s 

RAINBOW 0> 



9E8T OUST SOT BETTER 

Im/»stm«nt Proj«ct lorn T-Bills. FY '97 



MPWI Spreadsheets & 
|-Full-page Printed Graphs !! 




st merits 



'";,.' " a Months Sinc« T-Bt 1 1 Ir 

« AUTOMATICALLY LOADS DATA FROM MOST POPULAR SPREADSHEETS. 

* 2«? 1 GRAPHING SYMBOLS AND UNLIMITED OVERLAY OF DATA. 

* AUTOMATICALLY BCALE8 AND LABELS ALL THREE OF THE AXES. 

* CALCULATES MATH FUNCTIONS, INTEGRALS AND MOVING AVERAGES. 

* FULLY AUTOMATIC, MENU DRIVEN W/ COMPLETE ERROR TRAPPING. 

* FULL-PAGE SCREENPRINTB ON ANY PRINTERi SPECIFY WITH ORDER. 

REQUIRES 32K EXT. BABICl TAPE - «40.00 DISK - «43.00 



Picture Perfect UT ^;^ 



MEW ! ! 

PRINTER **" H/H»IC*fc.C-f.|S'l/i/ UTILITY 
UNIVERSAL- SCREENPRINT PROGRAM 
» COMPATIBLE WITH COCO I I I ! ! 

* -PERFECTLY SIMPLE" TO OPERATE - "SIMPLY PERFECT" REBULTB I 

* "PERFECTLY COMPATIBLE" WITH ALL DOT MATRIX PRINTERS' 

* GET "PERFECT CONTROL" OFl HEIGHT, WIDTH, POSITION, 

BAUD RATE, DOT DENSITY, NEGATIVE IMAGES, ETC. 

* THE "PERFECT BOLUTION" TO YOUR GRAPHICS PRINTING NEEDS! 

* COMPATIBLE WITH GRAPHICOM AND COCO MAX PICTURES! 

* ONLY S2B - OO ON DISK OR TARE ■« 



BUY BOTH PROGRAMB n< SAVE »10-00 

CALL NOW FOR FREE INFORMATION (113! 347-7337, OR WRITEl 

HAWKEB RESEARCH BERVICEBl B39 STANFORD AVE, OAKLAND, CA 9460B 
YOUR PERSONAL CHECK IB WELCOME! SHIPMENT WITHIN 48 HOURB ! 

ADD »3.00 SHIPPING ON ALL ORDERS. CA. RESIDENTS ADD BflLEB TA> 
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:GOT0325 

320 PRINT" SORRY, THAT IS INCOR 

RECT I !" :NW=NW+l:GOT0325 

325 PRINT: PRINT" PRESS <ENTER> 

TO CONTINUE."; 

330 PRINT@192, ""; : JK$=CR$ :GOSUB3 

50 : PRINT@19 2 , " " ; : JK$=FL$ : GOSUB35 

335 X$=INKEY$:IFX$="@"THEN390 

340 IFX$OCHR$(13)THEN330 

345 GOT0275 

350 IF LEN(JK$)<=SW THEN370 

355 FOR T=SW TO 0STEP-1:IF MID$ ( 

JK$,T,1)=" "THEN365 

3 60 NEXT T:GOTO370 

365 L$=LEFT$ ( JK$ , T) : W$=L$ : GOSUB3 

75:JK$=" "+RIGHT$(JK$, (LEN(JK$) 

)-T) :GOTO3 50 

3 70 W$=JK$ : PRINTW$ : RETURN 

375 PRINTW$: RETURN 

3 80 REM SCORE CARD 

385 REM NW=WRONG:NR=RIGHT 

390 CLS: PRINT: PRINT: PRINT 

3 95 PD=NR+NW : PRINTTAB ( 3 ) " PROBLEM 

S COMPLETED = "PD: PRINT 



PRINTTAB (3) "CORRECT RESPONSE 

= "NR: PRINT 

PRINTTAB (3) "INCORRECT RESPON 

= "NW: PRINT 

TR=NR+NW : IFTR=0THENTR=1 

SC=INT(NR/TR*100) 

PRINTTAB (3) "YOUR TOTAL SCORE 

= "SC"%": PRINT 

PRINTTAB ( 3 ) "ANOTHER TRY ( V/N 
) OR (C) ?"; 
430 X$=INKEY$:IFX$=""THEN430 

IFX$="Y"THEN RUN 

IFX$="N"THEN CLS: END 

IFX$="C"THEN 275 

GOTO430 

GOT0455 

DATA I, YOU, HE, SHE, IT, WE, YOU, 



4J3J3 

S 

405 

SES 

41)3 

415 

420 

425 



435 
440 
445 
450 
455 
4 60 



THEY 

465 DATA AM, ARE, IS , IS , IS , ARE, ARE 

,ARE 

4 70 DATA WAS , WERE , WAS , WAS , WAS , WE 

RE , WERE , WERE 

47 5 DATA WILL BE 

4 80 DATA HAVE BEEN, HAVE BEEN, HAS 

BEEN, HAVE BEEN 
485 DATA HAD BEEN 
4 90 DATA WILL HAVE BEEN 
495 DATA NOW, AT THIS MOMENT, TODA 
Y,AS WE SPEAK, TODAY, AT THE PRESE 
NT TIME 

500 DATA LAST WEEK, AN HOUR AGO,Y 
ESTERDAY,LAST NIGHT, LAST WEEK, LA 
ST TUESDAY 



505 DATA TOMORROW, NEXT WEEK, LATE 
R ON, PRETTY SOON, AFTER SOME TIME 
,IN A SHORT TIME 
510 DATA FOR MANY YEARS , FOR ONLY 

ONE WEEK, SINCE 1984, SINCE LAST 
JUNE, FOR ABOUT A MONTH NOW, FOR T 
HREE SLEEPLESS NIGHTS 
515 DATA BEFORE IT HAPPENED, EVER 

SINCE WE STARTED TALKING, BEFORE 

THE SHOW, WAY BEFORE THE MIDDLE 
OF THE NIGHT, BEFORE WAITING FOR 
A REPLY, BEFORE HEARING THE NEWS 
520 DATA BY THE TIME IT IS FINIS 
HED,IN THE NEAR FUTURE, AFTER A L 
ITTLE WHILE, AFTER GRADUATION, AFT 
ER THE CONCLUSION, AFTER THE TRAI 
NING SESSION 

525 DATA HERE, READING THIS BOOK, 
LISTENING TO THE TAPE, WRITING LE 
TTERS, LIVING HERE, OFFICIALLY ENR 
OLLED,THE MOST QUALIFIED, VERY SA 
TISFIED 
530 DATA COMPLETELY DISGUSTED, IN 

GOOD HEALTH, TIRED OF WAITING, TY 
PING A MANUSCRIPT, EARNING A LIVI 
NG, SITTING QUIETLY, FLYING BY JET 
PLANE 

535 DATA PRESENT, PAST, FUTURE, PRE 
SENT PERFECT, PAST PERFECT, FUTURE 

PERFECT 
540 DATA THE present TENSE IS US 
ED TO DESCRIBE SOMETHING WHICH I 
S HAPPENING AT THIS MOMENT. 
545 DATA THE past TENSE IS USED 
TO DESCRIBE SOMETHING WHICH ALRE 
ADY HAPPENED AND IS COMPLETED. 
550 DATA THE future TENSE IS USE 
D TO DESCRIBE ACTION WHICH HAS N 
OT HAPPENED. IT IS FORMED BY ADD 
ING will OR shall TO THE PRESENT 

TENSE. 
555 DATA THE present perfect TEN 
SE IS USED WITH ACTION WHICH STA 
RTED EARLIER BUT MAY STILL BE CO 
NTINUING. IT IS FORMED BY ADDING 

have OR has TO THE PAST PARTICI 
PLE. 

560 DATA THE past perfect IS USE 
D TO DESCRIBE SOMETHING WHICH HA 
PPENED BEFORE ANOTHER PAST ACTIO 
N. IT USES THE HELPING VERB had 
AND THE PAST PARTICIPLE. 
565 DATA THE future perfect DESC 
RIBES AN ACTION THAT WILL BE FIN 
SIHED SOME TIME IN THE FUTURE. I 
T USES will have OR shall have A 
ND THE PAST PARTICIPLE. 
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DOWNLOADS 



A Case of CDs 
and WORMs 



By Dan Downard 
Rainbow Technical Consultant 



Since the introduction of the compact 
disc player. 1 have wondered if it would 
be possible to record programs and data 
on a CD. With the price of CD players 
at $200, would they work as fast as a 
disk drive or faster than my slowpoke 
cassette recorder? Would it cut down on 
annoying Ij O Errors? 

Andy Bailey 
Madison, WV 

Andy, you have the makings of an 
electronic pioneer. In fact, CDs are the 
upcoming technology for storage 
media, but at present there is no way to 
write to a CD. The CD players you are 
referring to are "play" only. Equipment 
to cut the masters for these CDs is very 
expensive. 

Fear not, though, the latest technol- 
ogy is the WORM. A WORM is a"write 
once" memory disc that is coated with 
an organic dye. Once you write to it, you 
can read it as many times as you like. 
The problem with these drives is that 
they are extremely expensive, as a small 
system starts at around 10 gigabytes. 
Maybe you can use that much storage 
space for your library, but 1 can't 
imagine needing one for my CoCo. 

Assembling Low Memory 

I have a Co Co 3 with a disk drive and 
I recently purchased Disk EDTASM 

Dan Downard is an electrical engineer 
and has been involved in electronics for 
27 years through Ham radio (K4KWT). 
His interest in computers began about 
eight years ago, and he has built several 
68 XX systems. 



from Radio Shack. When trying to 
assemble an 800-byte program (position 
independent), I got "bad memory" 
errors below H5600, but it assembled 
fine above that address. 

It seems, after some experimentation, 
that the object code interferes with the 
source code below this address. I am 
afraid that for larger programs. I will 
have to assemble at even higher ad- 
dresses, leaving little RAM for my 
program. Do I need a different as- 
sembler for the CoCo 3, or can you 
suggest a solution for using Disk ED- 
TASM on this computer? Is there any 
way to access memory above SFFFF 
using this, or other, assemblers? 

David Harris 
Utica, MI 

David, you can't assemble programs 
in low memory due to conflicts with low 
RAM pointers in the CoCo. At the 
same time you don't have to assemble 
programs in memory. If you issue the 
command A without an IM, you will 
indeed assemble the program in the next 
free memory area available to your 
assembler program. 

BBS Garbage 

/ have a CoCo 3 with a Multi-Pak 
Interface and one disk drive. I am 
attempting to use a Modem I-B with an 
RS-232 interface without success. I can 
dial onto the BBS, but I end up with 
complete garbage on the screen. What 
is my problem? 

Richard A. Yeh/e 
Sacramento, CA 



Richard, make sure you have the 
baud rate of your software set to 300. 
The Modem 1-B is only capable of 300 
baud. Evidently, it is working, since you 
are at least getting garbage on your 
screen. 

CoCo 3 Memory Capacity 

I just bought my new CoCo 3. 1 typed 
PRINT MEM. and it said 22824 with my 
disk drive plugged in. Is something 
wrong with it? I thought you got more 
memory with a new CoCo 3. 

Sean E. Bishop 
Hazard. KY 

Sean, my CoCo 3 has 5I2K in it and 
I get the same memory as you do. In 
fact, you must have OS-9 Level II to 
take advantage of the extra memory for 
programs. At present, though, you can 
use the extra memory for graphics. 
BASIC still limits you to 22K. (if you 
don't PCLEflRl) for programs. 

Your technical questions arc welcomed. 
Please address them to: Downloads, THK 
rainbow, P.O. Box 385, Prospect, KY 
40059. We reserve the right to publish only 
questions of general interest and to edit for 
space and clarity. Due to the large volume 
of mail we receive, we are unable to answer 
letters individually. 

Your technical questions may also be sent 
to us through our Delphi CoCo SIG. From 
the CoCo SIG> prompt, pick Rainbow 
Magazine Services, then, al the RAIN- 
BOW> prompt, tvpe ASK (for Ask the 
Experts) to arrive at the EXPERTS> 
prompt, where you can select the "Down- 
loads" online form, which has complete 
instructions. 
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OS-9 PROGRAMMING 



Using 
Compressed Files 



By Peter Dibble 



Compressed files are a wonder- 
fully useless way to consume 
disk space unless you have a 
program to uncompress them. Fortu- 
nately, it is even easier to uncompress 
run length encoded files than it is to 
compress them. Unfortunately, it takes 
about as much time. 

The compression program writes 
one-byte codes. Half of each code is a 
count and the other half is data. To 
uncompress the data, we just replicate 
it as many times as the count indicates. 
There are some tricks you have to 
watch out for. First, since there is no 
such thing as a run of length zero, I 
replicate the data one more time than 
the count seems to call for (the compres- 
sion program uses a count of zero to 
indicate a run length of zero). Second, 
since the data is only half a byte long 
(four bits), the program needs to build 



Peter Dibble has a bachelor's degree in 
chemistry and is currently a graduate 
student in computer science. He has 
worked as an applications programmer, 
systems programmer and as the user 
services assistant directory for the 
University of Rochester Computing 
Center. With Dale Puckett, he is co- 
author of The Complete Rainbow 
Guide to OS-9 and the first volume of 
The Complete Rainbow Guide to OS- 
9 Level II. 



bytes out of the data instead of just 
dropping it into an array. 
To try the program, compress a win- 



dow with SauElmage (from last 
month's article), then run Get I mage. 
You might not get back the exact image 





Editor's Note: The following procedures will be 


combined i 


n one source file, UnPress, on this month's 


RAINBOW ON DISK. 


Listing 1: Getlmage 




PROCEDURE 


Getlmage 


9999 


DIM FileName:STRING[99] 


000C 


INPUT "Image file name: " .FileName 


0025 


RUN unpress (FileName) 


002F 


END 


Listing 2: UnPress 




PROCEDURE 


unpress 


9m 


PARAM FileName:STRING[99] 


000c 


DIM c:BYTE 


0013 


DIM nyble:BYTE 


001A 


DIM RunL:BYTE 


0021 


DIM Path: BYTE 


0028 


DIM buffer (7680) : BYTE 


0034 


DIM section,!, position: INTEGER 


0043 


DIM LeftNyb : BOOLEAN 


004A 


DIM WinType.horiz, vert -.INTEGER 


0059 




006E 


OPEN #Path, FileName: READ 


007A 


section:=l 


0081 


position:=l 


0088 


LeftNyb:=TRUE 


008E 


GET #Path,WinType 


0098 


GET #Path,horiz 


00A2 


GET #Path,vert 
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you saved. Since the compression pro- 
gram didn'l save the palette, the original 
color won't be restored. The window 
type was saved in the disk file, but this 
program displays in the current win- 
dow. OS-9 will convert the data to the 
new window type, but the conversion 
may not give you just what you expect. 
If you want more accurate reproduc- 
tion, it would be easy to alter the 
Get Image program so it sets up a new 
window with the type from the file. 

This decompression program and tiic 
compression program that goes with it 
were designed to compress Color Com- 
puter graphics windows. They won't 
work well for text or for modules. They 
don't really work very well as stand- 
alone programs, either. You have to run 
them in the window that you want to 
save, and running them messes up the 
image in the window. 

The best way to save screens is by 
building the compression code into 
programs that need it. The compression 
and uncompression programs work on 
their own standard output path because 
working with another program's win- 
dow can be almost impossible. If you 
want to save images from windows that 
aren't being used by any other program, 
you can make a slight modification to 
compress and use it to save images from 
any window. 

Both the compression and the un- 
compression programs are too slow. 
They are good BASIC09 programs, but 
they just don't run fast enough. This is 
the time to use assembly language. □ 



00AC WHILE NOT(EOF(#Path)) DO 

00B7 GET #Path,c 

00C1 RunL:=c/16 

00CC nyble :=LAND(c,$0F) 

00D8 GOSUB 100 \REM Put RunL copies of Nyble in the buffer 

0105 ENDWHILE 

0109 GOSUB 100 

010D CLOSE #Path 

0113 END 

0115 100 REM Put RunL copies of Nyble in buffer 

013D FOR i:=0 TO RunL 

014E IF LeftNyb THEN 

0157 buf f er(position) :=16'>'Tiyble 

0166 ELSE 

016A buf f er(position) :=buf f er(position)+nyble 

017D position:=position+l 

0188 ENDIF 

018A LeftNyb :=NOT(Lef tNyb) 

0193 IF position>7680 THEN 

01A0 RUN PutBuffer (buffer, section, WinType.horiz, vert/4) 

01C0 section:=section+l 

01CB position :=»1 

01D2 ENDIF 

01D4 NEXT i 

01DF RETURN 

Listing 3: PutBuffer 

PROCEDURE PutBuffer 

0000 PARAM buff er(7680) : BYTE 

000C PARAM section: INTEGER 

0013 PARAM typecode: INTEGER 

001A PARAM horiz, vert: INTEGER 

0025 TYPE registers=cc,a,b,dp:BYTE; x,y ,u:INTEGER 

004A DIM regs : registers 

0053 DIM i, group: INTEGER 
005E 

005F REM Get this process's process id 

007F RUN syscall(S0C.regs) 

008D group :=regs .a 

(3098 ON ERROR GOTO 100 

009E RUN gfx2("defbuff", group, 1,7680) 
00B9 100 REM The buffer is now defined 

00D8 RUN gfx2("gpload" .group, 1, typecode, horiz-1, vert ,7680) 

0103 PUT #1, buffer 

010C RUN gfx2("put", group, 1 ,0,vert*(section-l) ) 

012D RUN gfx2("killbuff", group ,1) 

0145 END /R\ 
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RTR Development Systems 

Post Office Box 72, Peaster, Texas 76074 
Phone: (817)599-0871 



Teac 40 Track DSDD Drives (Bare) $100.00 

Star NX-10 Printer $262.50 

2 Drive Cable $ 12.95 

Disto Super Controller w/CDOS or CDOS 3 $ 79.95 

Avatex 1200 $ 97.50 

Avatex 1200 he (With 5 Free Hours on CIS) $129.95 

512K Coco III Upgrade w/OK $ 34.95 

The Sector Wizard (Disk Zap) $ 14.95 

Drive & 1 System (2 DS Drives) $362.50 

Coco III ECB Unravelled $ 19.95 

Magnavox 8CM51 5/505 Monitor Cable $ 12.95 



Mitsubishi 80 Track DSDD Drives (Bare) $125.00 

Case + Power Supply (Dual Vs Height) $ 49.95 

4 Drive Cable $ 16.95 

Magnavox 8CM515 Coco III Monitor $299.95 

PBH-64 Parallel-Serial + 64K Buffer $ 99.95 

Avatex 2400 (With 5 Free Hours on CIS) $253.75 

512K Coco III Upgrade w/512 K $ 96.25 

Adventure Into Fear (D&D Adventure) $ 24.95 

Epson LX-86 $235.75 

Coco III Secrets Revealed $ 19.95 

68B09E (Coco III Microprocessor) $ 9.95 



Distributors for: Ark Royal, Cer-Comp, Computerware, Diecom, Disto. Prickly Pear, and Speech Systems 

Offering Discounts on Software from 10% to 20%. Write or call for a complete Catalog. Payment Terms: Personal Check (allow 2 weeks to 
clear), Money Order or Cashier's Check (Sorry, No COD). Shipping: Software: $2.00, Hardware: $5.00, Monitors: $10.00. 

Hours: 9 a.m. - 6 p.m. Mon.-Sat. (CST), 12 noon - 6 p.m. Sunday. Answering Machine After Hours. 
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CoCo 3 



BARDEN'S BUFFER 



From Flatland to 3-D 



By William Barden, Jr. 
Rainbow Contributing Editor 



Holographic video would be great on the CoCo! Can't 
you imagine the Death Star exploding in space about 
five inches in front of your CoCo monitor? Better 
yet. Princess Leia imploring Obi Wan Kenobi to help her? 
Until that time, however, we're going to have to be content 
with two dimensions on the screen, like the creatures of 
Flatland that had only height and width. 

Or will we? On reflection I thought it might make an 
interesting column to see just how difficult it is to implement 
three dimensions. Although 1 wouldn't mind a 3-D display 
of Carrie Fisher, I aimed my sights a little lower — 3-D bar 
graphs. 

3-D Guns and Butter 

I'm sure you've seen the type of thing I mean. They're 
usually displayed in the business section of your local 
newspaper or USA Today and show such things as countries 
on one axis, the year on another and number of computer 
systems on still another, as shown in Figure I. 



Number of CoCos by Country and Year 




Q 




England 



g 



200.000 
units 



Figure 1: Sample Bar Graph 



Bill Barden has written 27 books and over 100 magazine 
articles on various computer topics. His 20 years' experience 
in the industry covers a wide background: programming, 
systems analysis and managing projects on computers 
ranging from mainframes to micros. 
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1 thought this would be an easy, short project. As it turned 
out, it was relatively short, but not all that straightforward. 
There are a lot of things to consider when converting Flatland 
graphs to three dimensions. 

In the following discussion I thought it might be nice to 
use the powerful 640-by- 1 92, four-color graphics of the CoCo 
3. CoCo 2 readers should be able to modify the programs 
to work in the 256-by-192 mode without a great deal of 
trouble. We'll talk in terms of Extended Color basic and not 
BAS1C09 to keep things simple. 

A Graphic Review of Graphs 

The CoCo uses an X,Y screen reference in graphics modes. 
There are 640 pixels in each row, numbered through 639, 
and 192 pixels in each column, numbered through 191. 
HSCREEN 4 sets the 640-by-192 mode, in which four colors 
can be used. The upper-left corner is pixel 0,0; the upper-right 
corner is pixel 639,0; the bottom-left corner is pixel 0,191; 
and the bottom-right corner is pixel 639,191 (see Figure 2). 





Column Column 
639 


RowO 


Pixel 0,0 Pixel 

639.0 




Row 191 


Pixel 
.Pixel 0,1 91 639 ' 19 N ' 




Figure 2: CoCo 3 HSCREEN 4 



This is not quite the same as common Cartesian coordi- 
nates, in which X increases to the right and Y increases 
toward the top of the graph, as shown in Figure 3. Cartesian 
coordinates (named after Rene DesCartes and not Hymie 
Descartes, as many think) are widely used in mathematics and 
other applications. Both a positive and negative X and Y 
region can be shown, and the graph can represent any range 



oi" values. The center, or origin, of the graph is usually in the 
center of the viewing area. 
There are two problems right off the bat: 

• How can we convert to Cartesian coordinates? 

• How can we make the axes (X and Y) represent any range 
of numbers? 
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Figure 3: Cartesian Coordinates 



Converting to Cartesian Coordinates 

Suppose we make the center of the graph at X=320, Y=96. 
We can draw the X and Y axes by this code: 

100 HSCREEN A 

110 HCLS 

120 HDRflW "BM320, 9S; NR319; NU95" 

The resulting display is shown in Figure 4. HSCREEN sets 
the high resolution screen mode (the H prefix is used for all 
Hi-Res CoCo 3 commands) and HCLS clears the screen. The 
HDRflW subcommands move the graphics cursor to 320,96 
(near screen center). Draw a line from screen center right 3 19 
pixels to 639,96, and draw a line up 96 pixels to 319,0. The 
horizontal line is the X axis; the vertical line is the Y axis. 
The screen center represents X=0, Y=0. 



Y axis 



NU95 



NR319 



/ 



BM320.96 



X axis 



Figure 4: Drawing X and Y Axes 
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BACK ISSUES STILL AVAILABLE 

Have you explored the wealth of informa- 
tion in our past issues? From our very first, 
four-page issue to many with more than 300 
pages of material, it's all just for CoCo users 
— a great way to expand your library! 

A WORLD OF INFO AT A BARGAIN PRICE 

All back issues sell for the single issue 
cover price. In addition, there is a $3.50 
charge for the first issue, plus 50 cents for 
each additional issue for postage and han- 
dling if sent by United Parcel Service. There 
is a $5 charge for the first issue, plus a $1 
charge for each additional issue on orders 
sent by U.S. Mail. UPS will not deliver to a 
post office box or to another country. 

MOST ISSUES STILL AVAILABLE 

Issues July 1981 through June 1982 are 
available on white paper in a reprint form. All 
others are in regular magazine form. VISA, 
MasterCard and American Express ac- 
cepted. Kentucky residents please add 5 
percent state sales tax. In order to hold down 
costs, we do not bill, and no C.O.D. orders 
are accepted. 

Due to heavy demand, we suggest you 
order the back issues you want now while 
supplies last. 

To check availability and order, review and 
fill out the form on the next page and mail 
it with your payment to: 

THE RAINBOW 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
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BACK ISSUE ORDER FORM 

(See overleaf (or instructions.) 

Please send me the following back issues: 



MONTH/YEAR 


PRICE 




MONTH/YEAR 


PRICE 






VOLUME 1 








VOLUMES 






JUL '81 


Premier Issue 


$2.03 


D 


AUG '85 


Games 


$395 


u 


AUG '81 




$2.03 


D 


SEP '85 


Education 


$395 


u 


SEP '81 


Education 


S2.CD 


D 


OCT '85 


Graphics 


$3.95 


LI 


OCT '81 


Printer 


S2.C0 


D 


NOV '85 


Data Comm. 


$3.95 


u 


NOV '81 




$2.C0 


D 


JAN '86 


Beginners 


$3.95 


IJ 


DEC '81 


Holiday 


$2.03 


□ 


FEB '86 


Utilities 


$3.95 


LI 


JAN 'B2 




$2.00 


a 


MAR '86 


Business 


$3.95 


u 


FEB '82 




$200 


a 


APR '86 


Home Help 


$3.» 


u 


MAR 82 




$2.50 


a 


MAY '86 


Printer 


$3.95 


u 


APR '82 




$2.50 


n 


JUN '86 


Music 


$3.95 


u 


JUN '82 


VOLUME 2 


$2.50 


□ 


JUL '86 


Anniversary 
VOLUME 6 


$3.95 


i: 


JUN '83 


Printers 


$2.95 


□ 


AUG '86 


Games 


$395 


u 


JUL '83 


Anniversary 


$295 


D 


SEP '86 


Education 


$3.9b 


LI 




VOLUME 3 






OCT '86 


Graphics 


$3.95 


U 


AUG '83 


Games 


$295 


a 


NOV '86 


Data Comm 


$395 


u 


SEP 83 


Education 


$295 


p 


DEC '86 


Holiday 


S3.95 


IJ 


OCT '83 


Graphics 


$395 


D 


JAN '87 


Beginners 


$3.95 


u 


DEC '83 


Holiday 


$395 


D 


FEB '87 


Utilities 


$3.95 


u 


MAR '84 


Business 


$395 


a 


MAR '87 


Business 


$3.95 


Li 


APR '84 


Gaming 


$3.95 


D 


APR '87 
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$3.95 


i ; 


MAY '84 


Printer 


$3.95 


u 


MAY '87 


Printer 


$3.95 


u 


JUN '84 


Music 


$3.95 


a 


JUN '87 


Music 


$3% 


u 


JUL 84 


Anniversary 
VOLUME 4 


$395 


u 


JUL '87 


Anniversary 
VOLUME 7 


$3.95 


u 


AUG 'B4 


Games 


$3.95 


D 


AUG '87 


Games 


$395 


D 


SEP '84 


Education 


$3.95 


□ 


SEP '67 


Education 


$3.95 


a 


OCT '84 


Graphics 


$395 


D 


OCT '87 


Graphics 


$395 


□ 


NOV '84 


Data Comm. 


$395 


U 










DEC '84 
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$395 


D 










JAN '85 
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$395 


U 










FEB '85 
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$3.95 


a 










MAR 85 
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$3.95 


D 










APR '85 


Simulations 


$3.95 
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MAY '85 


Printer 
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JUN '85 
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$3.95 


D 










JUL '85 


Anniversary 


$395 
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Scaling 

The next problem is to scale the graph. As it stands, the 
graph can represent points whose X coordinate is through 
639 and whose Y coordinate is through 191. We'd like the 
graph to represent points with different X and Y ranges. As 
an example, suppose that we wanted X to be -100 through 
+ 100 and Y to be -100 through +100, and in Cartesian 
coordinates. We'll call these the "real-world" coordinates. 

On the screen, 320 horizontal pixels correspond to 100 real- 
world integers (or 640 pixels to 200 real-world integers), so 
each real-world X coordinate must be multiplied by 320/ 100, 
or 3.2. 

On the screen, 96 vertical pixels correspond to 100 real- 
world integers, so the real-world Y coordinate must be 
multiplied by 96/100, or .96. 

Converting (he Origin 

In screen coordinates, the origin of the graph is at X=0, 
Y=0 at the upper left-hand corner of the screen. In real-world 
coordinates, the origin is at screen center 320,96. After 
scaling, any real-world coordinate must be converted to 
screen coordinates by adding 320 to the scaled X coordinate 
and by subtracting the scaled Y coordinate from 96. For 
example, suppose the real-world coordinate is X=-20, Y=50. 
After scaling: 

X - -20 * 3.2 = -64 
Y = 50 * .96 = +48 

Adjusting for the origins: 

Xscreen = -64 + 320 = 256 
Yscreen = 96 - +48 = 48 

The result is shown in Figure 5. 



Real World: 
Y=50'.96=4 
96-('48)=48 screen 




HH 



Real World: 

X= 20-3.2=-64»320=256 screen 



T 



' X= 20 real 
Y=50 real 
X=256 screen 
Y-48 screen 



Figure 5: Converting from Real-World Coordinates 
to Screen Coordinates 



A short program to plot three real-world points is shown 
below: 

100 DflTfi 50,50,70,70,-10,-10 

110 HSCREEN 4 

120 HCLS 

130 HDRfiW "BM320, 9G; NR319; NU95" 

140 HSCREEN 

150 READ X,Y 

1G0 HCIRCLE ( ( X * 3.2 ) = 320, 9G - ( Y * .9G ) 

), 3 
170 AS = INKEYS: IF RS = "" THEN GOTO 170 ELSE GOTO 

150 
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Another point is plotted when a key is pressed. Each point 
is plotted as a small circle. 

The code scales and converts points in two dimensions. But 
what about three dimensions? 

From Flatland to 3-D 

Let's add another axis to the graph above. It's called the 
Z axis and represents depth. Normally, this axis would 
appear as a point, because it would be coming out at a 
perpendicular angle to the screen, as shown in Figure 6. 
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Figure 6: Ideal X,Y,Z Re 


presentation 





Since we can't really bring out the axis this way (without 
holography), the Z axis is represented as shown in Figure 7. 
The axis to the left represents a positive Z value. The missing 
axis to the right represents negative Z values. 
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Points are plotted in three dimensions on this graph by first 
plotting the point in the X and Y dimension and then moving 
along the Z axis. The greater the Z value, the greater the 
distance from the origin along Z. A program to plot the point 
in this fashion is shown in Listing 1. It draws lines repre- 
senting the intersection of X and Y and then moves out along 
the Z axis to plot a small circle. 



Listing 


1: 


w 


1 PLOT POINT IN X,Y,Z 


110 


INPUT X,Y,Z 


120 


HSCREEN 4 


130 


HCLS 


140 


' PRELIMINARY AND DRAW AXES 


150 


AA = 30 


160 


XS = 100: YS = 100: ZS = 100 


170 


AN = AA / 57.29583 


180 


AM = ( 90 - AA ) / 57.29583 


190 


CA = COS( AN ) 


200 


SA = SIN( AN ) 


210 


HDRAW "BM320,96; NR319 NU96" 


220 


IF AA <= 45 THEN CX = : CY 


= 96 * TAN ( AN ) +96 


230 


IF AA > 45 THEN CY = 191: CX 


= 320 - TAN( AM ) * 320 


240 


HLINE ( 320, 96 ) - ( CX, CY 


), 


PSET 


250 


1 LOCATE POINT AND DRAW LINE 


S AND POINT 


2 60 


X = ( X / XS ) * 320 + 320 


270 


Y = 96 - ( Y / YS ) * 96 


280 


XD = -( Z * COS( AN ) / ZS ) 


* 320 


290 


YD = ( Z * SIN( AN ) / ZS ) 


* 96 


300 


HLINE ( 3 20, Y ) - ( X, Y ) , 


PSET 


310 


HLINE (X, 96 ) - ( X, Y), 


PSET 


320 


HLINE ( X, Y ) - ( X + XD, Y 


+ YD ) , PSET 


330 


HCIRCLE ( X + XD, Y + YD ) , 


XS/20 


340 


GOTO 340 




Preliminary Code 

Suddenly things have gotten more complicated! However, 
if you can understand this program, you'll understand much 
of what is involved in drawing shapes in three dimensions. 

The X, Y and Z values are first input, the 640-by-192 mode 
is set, and the Hi-Res screen is cleared. 

The next section does all of the preliminary work and 
draws the axes. Variable Rfl defines the angle of the Z axis, 
as shown in Figure 8. This angle could be close to or close 
to 90 degrees and would represent a different vantage point 
for the graph with each different angle as shown in the figure. 
We'll use 30 degrees as the nominal angle. 
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Figure 8: Angle of the Z Axis 





Real-World Scaling 

Next, variables XS, YS and ZS are set to 100. This represents 
the real-world scales for each axis. The X axis, for example, 
represents -100 to +100 in the real-world, with the origin at 
0. Next, variable AN is set to the angle of the Z axis in radians. 
All of the BASIC trigonometric functions work in radians 
rather than degrees. A radian is an angular measurement like 
degrees. One radian equals 57.29583 degrees, so dividing the 
angle by 57.29583 gives the angle of Z in radians. 

Next, variable AM is set to the complement of the AN angle. 
This is the second angle in the triangle formed by the Z axis, 
as shown in Figure 9. 
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Figure 9: AM Angle 



Sine and Cosine 

Next, Cfl and SA are computed. These are the sine and 
cosine values of the Z axis angle. Given any Z axis angle and 
a distance along either X, Y or the Z axis (hypotenuse), we 
can find the other two distances by using sine, cosine or 
tangent functions. 

As a refresher to these functions, look at Figure 10. The 
sine function is the ratio of the opposite side of the triangle 
to the hypotenuse. When the angle is small, the opposite side 
is small and this ratio approaches 0. When the angle 
approaches 90 degrees, the opposite side is large and the ratio 
approaches I. The length of the opposite side (Y) can be 
found by multiplying the sine of the angle times the length 
of the hypotenuse (the distance along the Z axis). 
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Figure 10: 


SIN, COS and TAN Functions 





The cosine function is the ratio of the near side of the 
triangle to the hypotenuse. When the angle is small, the near 
side is large and this ratio approaches 1. When the angle 



DIGISECTOR 

DS-69B 

VIDEO 

IGITIZER 

FOR THE 

COCO 3 

(AND ALL OTHER COCOS . . .) 





COCO 3 SCREEN 



USE YOUR COCO 3 TO ITS FULL POTENTIAL! 

Use The Micro Works' DIGISECTOR'" DS-69 or 
DS-69B and your COCO 3's high resolution graphics 
to capture and display television pictures from your 
VCR or video camera. The DIGISECTOR™ systems are 
the only COCO video digitizers available that 
accurately capture and reproduce the subtle shades of 
gray in TV pictures! 

• COLOR: Add color to your screen for dramatic 

special effects. 

• HIGH RESOLUTION: 256 by 256 spatial resolution. 

• PRECISION: 64 levels of grey scale. 

• SPEED! 8 images per second on DS-69B, 

2 images per second DS-69. 

• COMPACTNESS: Self contained in a plug-in 

Rompack. 

• EASY TO USE: Software on disk will get you up and 

running fast! 

• COMPATIBLE: Use with a black and white or color 

camera, a VCR or tuner. 

• INEXPENSIVE: Our low price puts this within 

everyone's reach. 

POWERFUL C-SEE 3.3 SOFTWARE 

This menu-driven software 

will provide 5 and 16 shades 

of gray to the screen and to 

the printer with simple 

joystick control of 

brightness and contrast. 

Pictures taken by the 

DIGISECTOR™ may be 

saved on disk by C-SEE 3.3 

and then edited by our 

optional MAGIGRAPH, or by COCO MAX 

GRAPHICOM. This versatile new software 

in both DIGISECTORS™ 

DS-69B and C-SEE 3.3 
DS-69 and C-SEE 3.3 




or 

is incl 



uded 



$149.95 
$ 99.95 



TRADE IN YOUR OLD DIGISECTOR™ 

If you already have one of The Micro Works' DS-69 or 
DS-69A DIGISECTORS™, you may return it to us and 
we will upgrade your unit to a DS-69B. 



UPGRADE DS-69A to DS-69B 
UPGRADE DS-69 to DS-69B 



$49.95 
$69.95 



Terms: Visa, Mastercard, Check or C.O.D. 



The DS-69B comes with a one year warranty. Cameras 
and other accessories are available from The Micro 
Works. 

NO RISK GUARANTEE 

If you are not completely satisfied with the performance of your new 
DS-69B, you may return it, undamaged, within ten days for a full 
refund of the purchase price. We'll even pay the return shipping. If 
you can get any of our competitors to give you the same guarantee, 
buy both and return the one you don't like. We know which one 
you'll keep. 



TH mo©[^o) 

Purveyors of Fine Video Digitizers Since 1977. ^/(Q)^!^^ 3 



P.O. Box 1110 Del Mar, CA 92014 (619)942-2400 



approaches 90 degrees, the near side is small and the ratio 
approaches 0. The length of the near side (X) can be found 
by multiplying the sine of the angle times the length of the 
hypotenuse (the distance along the Z axis). The sine and 
cosine, then, vary from to 1 and complement each other 
— when the sine of the angle is near 0, the cosine is near I, 
and vice versa. 

The tangent of an angle is the ratio of the opposite side 
of the triangle to the near side. When the angle is small, this 
ratio is close to 0, as the opposite side is very small. When 
the angle approaches 90 degrees, however, the ratio becomes 
very large (much greater than one), as the opposite side is 
very large and the near side is very small. At 90 degrees, the 
opposite side is infinitely large and the near side is infinitely 
small, making the tangent ratio infinite. Given any angle and 
one of the two sides, the length of the other side can always 
be found by using the tangent value of the angle. 

Drawing the Axes 

Next, the X and Y axes are drawn as before. Now, the Z 
axis must be drawn. There are really two cases here. If the 
angle of the Z axis is less than or equal to 45 degrees, the 
Z axis intersects the left side of the screen. If the angle of 
the Z axis is greater than 45 degrees, the Z axis intersects the 
bottom of the screen. A check is made of fifl, therefore, to 
see which case applies. If the first case applies, variable CX 
is set to and variable CY is set using the tangent function 
to compute the length of Y. If the second case applies, variable 
CY is set to 191 and variable CX is set using the tangent 
function to compute the length of X. The Z axis is then drawn 
using the HLINE statement in BASIC. These two cases are 
shown in Figure 1 1 . 









This side 
96 - TAN(AN) 

cx=o —+ 


96 






ANt^-"^ 










/ AM 








Fi 


t \ 

CY=191 V 

Thisside=320-TAN(AM) 

gure 11: Two Cases for Z Axis 





Two displacements, XD and YD, are now computed. These 
represent the displacement along the Z axis to represent the 
point. The cosine and sine values are used to find XD and YD. 
Adding X to XD and Y to YD gives the screen coordinate of 
the point in three dimensions. 

Now the three locating lines can be drawn by three LINE 
statements. The lines defining X and Y in two dimensions 
are easy and involve only X and Y values. The line repre- 
senting the displacement along the Z axis uses the XD and 
YD displacements to locate the end of the line. This line end 
is also used to locate the point and to draw a small circle at 
its location. 

Confused? If so, use the program to change the angle of 
Z and to draw various points. The final calculations are 
shown in Figure 12. 



X'XD.Y + YD 



320.Y 
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/ 




X.96 
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Figure 12: Finding the Point 



Drawing Vertical Columns 

Listing 2 shows another program. This one draws a vertical 
column in three dimensions. A 3-D bar graph will be made 
up of vertical columns, and this is a good exercise before we 
look at the actual 3-D bar graph. 



Finding the Point 

Next, the distance along X and Y are found. This is a 
scaling computation similar to what we did before, changing 
the real-world values of X and Y to screen values. 



Listing 2: 






100 


1 DRAW A VERTICAL COLUMN 




110 


INPUT X,Y,Z 






12)3 


HSCREEN 4 






13/3 


HCLS 






14j3 


AA = 30 






150 


XS = 100: YS 


= 100: ZS = 


100 


16/3 


AN = AA / 57 


29583 




170 


AM = ( 90 - AA ) / 57.29583 


18/3 


CA ■ COS( AN 


) 




190 


SA = SIN( AN 


) 




2/3/3 


HDRAW "BM3 20 


96; NR319 NU96" 


210 


IF AA <= 45 THEN CX = 0: 


CY 


= 96 * TAN ( AN ) 


+ 96 




220 


IF AA > 45 THEN CY = 191: 


CX 


= 3 20 - TAN( AM 


) * 320 




230 


HLINE ( 3 20, 


96 ) - ( CX, 


CY 


)# 


PSET 






240 


X = ( X / XS 


) * 320 + 320 


250 


Y = 96 - ( Y 


/ YS ) * 96 
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2 60 


XD = 


-( z 


* 


COS 


AN 


) / zs 


) 


* 32,0 














2 70 


YD = 


( z 


* SI ( 


AN 


) / zs ) 




* 96 














2 80 


HLINE ( X 


+ 


XD, 


Y + 


YD ) - 


( 


X + XD, 


Y + 


YD 


+ Y 


), 


PSET 




290 


GOTO 


290 













This program is very similar to Listing I. However, only 
one line is drawn, the line from X,Y,Z down to the "floor" 
of the graph — the plane made up of the Z and X axes, as 
shown in Figure 13. 

At this point we could draw a 3-D bar graph by drawing 
consecutive vertical lines. However, the next program draws 
a better column than just a straight line. 



X'XD.Y'YD 



P\ 



lloor 




This line 
is drawn - 
its height 
isY. 



X*XD.Y+YD->Y 



Figure 13: Drawing a Vertical Column 



A 3-D Bar Graph Program 

OK, ready for the grand finale? Listing 3 shows the 3-D 
bar graph program. It draws an unlabeled bar graph as shown 
in Figure 1 with any angle you'd like from to 90 degrees. 
The bar graph in the figure uses vertical columns with a width 
and depth for better appearance. 




Listing 3: 




100 ' THREE-D BAR GRAPH 




110 DATA 20,80,20,40,60,20 


60,40 


,20,80,20,20 




120 DATA 20,60,40,40,40,40, 


60,20 


,40,80,10,40 




130 DATA 20,50,60,40,55,60, 


60,45 


,60,80,55,60 




140 DATA 20,10,80,40,15,80, 


60,5, 


80,80,5,80 




150 DATA -1,-1,-1 




160 HSCREEN 4 




170 HCLS 




180 AA = 35 




190 XS = 100: YS = 100: ZS 


= 100 



DMC "No Halt" Disk Controller 




Did you know? 

, . , that all the older (loppy disk controllers tor the 
CoCo completely tie up (and even halt) the 6809 pro- 
cessor during disk reads and writes? No wonder 
your keyboard is constantly "losing" characters! Or 
that your serial port often gives you garbage. 



or CoCo 3 ^^^ 



Unleash your CoCo's potential! 

Our new Dual Mode Controller (DMC) implements a new 
"no halt" mode of operation so it can read from or write to 
disk all by itself. The 6809 is freed to process other tasks 
and respond to interrupts. This is how OS-9 was meant to 
run! But the Radio Shack "halt" mode of operation is also 
retained to maintain full compatibility with existing non- 
OS-9 software. 



T XC<HNOLOOIC< 

2261 East 11th Ave., Vancouver, B.C., Canada V5N 1Z7 



Other DMC features: 

• works with original CoCo, CoCo 2, or 
(Multl-Pak required) 

■ no adjustments — all-digital data separator and write 
precompensation 

• gold plated card-edge connectors for reliability 

• ROM socket takes 24 pin or 28 pin chips; dual DOS 
capability 

• Radio Shack DOS 1.1 ROM installed 

• 8K bytes cache memory on board (32K optional) 

• includes D.P. Johnson's SDISK package specially modilied 
for DMC 

• aluminum case 

• fully assembled and tested; 120 day limited warranty 

To order: DMC controller with RSDOS 1.1 and SDISK 
(specify Level I or II) $149.50 plus S5 S/H (S12 overseas). 
Terms (prices in SUS): check, money order. VISA 



(Also ask about our ST-2900 
6809 based expandable 
single board computer) 



(604)255-4485 (Pacific Time) 



October 1987 THE RAINBOW 173 



200 AN 

21/3 AM 

22/3 CA 

23/3 SA 

240 WD 

2 5/3 XE 



AA / 57.29583 

( 9/3 - AA ) / 57.29583 

COS ( AN ) 

SIN( AN ) 

20 

COS( AN ) 



) 



* 



WD 
WD 



.3 



CX 



CY 



260 YE = SIN( AN 

270 HDRAW "CI; BM3 20,9 6; NR319 N 

U96" 

280 IF AA <= 45 THEN CX = : CY 

= 96 * TAN ( AN ) + 96 

290 IF AA > 45 THEN CY = 191: 

= 320 - TAN( AM ) * 320 
300 HLINE ( 320, 96 ) - ( CX, 

) , PSET 
310 RESTORE 
3 20 READ XX,YY,ZZ 
3 30 IF XX = -1 THEN GOTO 3 30 
3 40 GOSUB 3 60 
350 GOTO 3 20 

1 DRAW COLUMN SUBROUTINE 
X = ( XX / xs 



3 60 
370 
380 



) 



* 320 + 320 
Y = 96 ( YY / YS ) * 96 
390 XD = -( ZZ * COS( AN ) / ZS 
) * 320 

400 YD = ( ZZ * SIN( AN ) / ZS ) 
* 96 



ALL SOFTWARE C0MPATA6LE WITH 50003 
NO PATCHES REQUIRED 

COLOR BANKBOOK +3 * $19.95 
• BUSINESS BANKBOOK S49.95 

SPECIFY 1 OR £ DISK DRIVES 

% TV BLACKOUT BINGO * $19.95 



• 


UCR FILE 


i 


9.95 


# SUPERDISK UTILITY 


* 


9.95 


SEE REVIEW IN MAY '86 
RAINBOW PAGE 191 






# RADIOLOG 

SEE REVIEW IN MAY 'SB 
RAINBOW PAGE £09 

# COOE PRACTICE 


$ 
* 


9.95 
9.95 


SEE REVIEW IN NOV '86 
RAINBOW PAGE 134 








ORDERS OR INFORMATION 






[■ "Til 


CALL 1-800-628-2828 
EXTENSION 552 




MB 





ALL PROGRAMS INCLUDE MANUALS - 
REQUIRE 3£K AND 1 DISK DRIVE. 
ADD 12.00 SHIPPING 4 HANDLING 
FLORIDA RES. ADD BY. SALES TAX 



0OEEM1 



RAINBOW 

CCRtl»C«tlO« 



-0 



scEFiMaas 



8901 NUI 26 ST DEPT R 



* 



SUNRISE, FL 33322 

INCLUDES SPECIAL EDITION FOR C0C03 



410 HDRAW "C2" 


420 HLINE ( X + XD, Y + YD ) - ( 


X + XD + WD, Y + YD + YY ) , PSE 


T, B 


430 HLINE - ( X + XD + WD + XE, 


Y + YD + YY - YE ) , PSET 


440 HLINE - ( X + XD + WD + XE, 


Y + YD - YE ) , PSET 


450 HLINE - (X+XD+WD, Y+Y 


D ) , PSET 


460 HLINE ( X + XD, Y + YD ) - ( 


X + XD + XE, Y + YD - YE ) , PSE 
T 
470 HLINE - ( X + XD + WD + XE, 


Y + YD - YE ) , PSET 


480 HPAINT ( X + XD + WD / 2, Y 


+ YD + YY / 2 ) , 3 , 2 


4 90 HPAINT ( X + XD + WD + XE / 


2,Y+YD+YY/2),3, 2 


500 HPAINT ( X + XD + WD, Y + YD 


- YE / 2 ) , 3 , 2 


510 HDRAW "CI" 


520 HLINE ( X + XD, Y + YD ) - ( 


X + XD + WD, Y + YD + YY ) , PSE 


T, B 


530 HLINE - ( X + XD + WD + XE, 


Y + YD + YY - YE ) , PSET 


540 HLINE - ( X + XD + WD + XE, 


Y + YD - YE ) , PSET 


550 HLINE - ( X + XD + WD, Y+Y 


D ) , PSET 


560 HLINE ( X + XD, Y + YD ) - ( 


X + XD + XE, Y + YD - YE ) , PSE 
T 
570 HLINE - ( X + XD + WD + XE, 


Y + YD - YE ) , PSET 


580 RETURN 



Preliminary Operations 

The data to be plotted is held in DATfi statements at the 
beginning of the program. Each column is represented by 
three values — X, Y and Z. The height of the column is 
represented by Y. The DATA values are terminated by 
X=Y=Z=-I. The DATA values must be arranged so that 
columns in the back of the graph are drawn first. These 
columns are overdrawn by other columns. One way to do this 
is to sort all X,Y,Z data by Z coordinate, putting all larger 
values of Z later in the DATA statements. 

The beginning of the program is very similar to the 
previous programs, aside from the DATA values. Variable WD 
is new and defines the width of the column in pixels. We're 
using 20 pixels for the width here. Variable XE and YE define 
the displacement of X and Y to draw the sides of the column, 
as shown in Figure 14. These displacements depend upon the 
angle of the Z axis, and the sine and cosine functions are used 
to find them. 

The three axes are drawn as in the other program. The 
program then reads X, Y and Z values from the DATA list, 
assigning them to XX, YY and ZZ. A Draw Column subroutine 
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is then called to draw the bar graph subroutine. This process 
continues until the terminating values of -1, -1, -1 are read 
for XX, YY and ZZ. 

Draw Column Subroutine 

The Draw Column subroutine is the heart of the Bar Graph 
program. It uses the same basic scheme as Program 2 to draw 
a vertical column. The subroutine is divided into three parts: 
drawing the column outline, painting the column and 
redrawing the column outline. 

The graph axis lines are color code 1. The column outline, 
however, is drawn with color code 2 because color code 2 
can now be used as a boundary condition for painting the 
inside of the column. Each column outline is drawn by six 
separate LINE statements. 

The first LINE statement draws the front of the column by 
a line with the "box" option. The WD variable is used to define 
the column width. 

The second through sixth LINE statements draw the sides 
and top of the column. Variables XE, YE and WD are used to 
define the starting and ending points of the lines. 

Next, the three areas of the column are painted. There may 
be an overdrawn axis line (such as the X axis), but as this 
is color code I, it is ignored in PRINT. Notice that PRINT takes 
care to find a point that is near the center of each area to 
be painted. 

At this point the column is solid color with no outline. The 
next set of LINE statements is the same as the first set, but 
use a color code of I, the same as the axes color code. After 
these LINE statements, the column has an outline that is the 



same color as the axes. This outline is ignored in case the 
column is later overwritten by another column in the graph. 

Using the Bar Graph Plotter 

The Bar Graph Plotter is not a perfect program. You can 
blow it up by choosing extreme values for X, Y and Z. It 
does not have error-checking for out-of-screen coordinates, 
for example. However, it might make a good basis for your 
own experiments in three-dimensional plotting. An interest- 
ing thing the program does is change the angle of the Z axis 
to get another view of the graph data. This is especially 
helpful if some of the columns are hidden by columns in front. 
Done fast enough, changing the angle of Z gives a three- 
dimensional rotation effect. 

Display labels by using the HPRINT statement, which 
displays text data directly on the Hi-Res screen. The location 
of the labels is dependent upon the angle of Z, so choose the 
flfl angle before labeling the graph. 

Change the real-world coordinates by changing X5, YS and 
ZS. The origin, however, will always be in the center of the 
screen. 

Any number of columns can be used and the width of the 
columns may be varied. You might, for example, have a 
continuous strip of columns both across and out from the 
screen. 

Although this wasn't the easiest project in the world, you'll 
have to admit it is fun to see 3-D bar graphs on the CoCo. 
It convinced me that more work should be done in this area. 
I may try Princess Leia next. 

See you next month with more CoCo topics. >R\ 
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For Coco. . . 

in the Midwest 

Now in our 5th year! 



Auatex THadem^ 



SUPER VALUE! SUPER SPEED! 




Avatex1200 $ 99. 00 
with Coco Cable 109. 00 



Avatex 1200. Cable 
AUTOTERM 
Software . . . 




Avatex 2400 $249. 00 
with RS-232 Cable" 265. 00 



S139. 



00 



Avatex 2400, Cable 

AUTOTERM 

Software $295. 00 



'Avatex 2400 requires Deluxe RS-232 Program Pak 



• Call' 

513-396-SOFT 



• Shop by Modem • 

513-396SHOP 



ICSSBSSSS 



2235 Losantiville. Cincinnati. OH 45237 

SHIPPING will ba chaigtd al qui ACTUAL COST 
Ohio it sidants add i 5'. Sales Ti« COD add 2 00 



MLBASIC 2.0 ■ BASIC Compiler 

The wait is over. WASATCHWARE announces the latest version 
of MLBASIC designed to allow more compatibility with existing BASIC 
programs than ever available before for the Color Computer. This 
version also allows full use of the capabilities and memory of the 
CoCo 3. Written In machine language, MLBASIC can compile programs as 
large as 64K bytes. Standard floating point ( 10 digit precision), 
INTEGER, and String type variables and arrays supported. 

COMMANDS SUPPORTED: 



1. I/O commands 

CLOSE QOADM CSAVEM DIR 
FILES GET INPUT KILL 

RSET USING LINEINPUT 

2. Program control commands 



DRIVE DSKIS DSKOS FIELD 
LSET OPEN PRINT PUT 



CALL DEFUSR END 

IF THEN ELSE 

3. Functions 

ABS ASC ATN 

HPOINT INSTR INT 

PEEK POINT PPOINT 

TIMER VAL VARPTR 

4. Siring functions 
CHRS INKEY$ LEFTS 



EXEC 
ERROR 

COS 
LEN 
RND 



MID$ 



FOR 
ON 



NEXT GOSUB GOTO 
RETURN STOP USR 



CVN EOF EXP FIX 

LOG LPEEK IOC LOF 

SGN SIN SQR TAN 



5. Graphic/Screen commands 
ATTR COLOR CLS CIRCLE 
HLINE HPAINT HPRINT HRESET 
LINE LOCATE PALETTE PAINT 
PRESET PSET RESET SCREEN 

6. Other commands 

DATA DIM MOTOR POKE 

TRON TROFF TAB VERIFY 

Plus many more commands not ava 

interfacing with hardware registers 



MKNS RIGHTS STRS 



STRINGS 



DRAW HCOLOR HSCREEN HDRAW 

HCIRCLE HCLS HSET JOYSTK 

PCLEAR PCLS PLAY PMODE 

SET SOUND WIDTH 



LPOKE RESTORE READ 



REM 



liable with regular BASIC which allow 
and machinelanguage programs. 



NBW <<<< ONIa'X' , 89°">>>> BIIW 

COCO 3 WITH DISK REQUIRED -Add $4.00 Postage. 

CHECK or MONEY ORDERS only. No C.O.D. or Bank cards. 

Foreign orders use U.S. MONEY ORDERS only. 



WASATCHWARE 

7350 Nutree Drive 

Salt Lake City, Utah 84121 

Phone (801) 943-6263 
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OS-9 




KISSable OS-9 



Unlock the 

Graphics Potential 

of OS-9 Level II 



By Dale L. Puckett 
Rainbow Contributing Edilor 



The ability to bootstrap is a won- 
derful thing. In fact, it's turned 
an innocent programming exam- 
ple into a lot of fun — and a major 
project. Hopefully, KISSDraw will help 
you unlock the graphics potential of 
OS-9 Level II and you'll see how easy 
it is to develop programs using your 
CoCo 3. 

While Peter Dibble and 1 were writing 
The Complete Rainbow Guide 10 OS- 
9 Level II, Volume I: A Beginners Guide 
to Windows, we wanted to show you 
how to use Tandy's optional high reso- 
lution mouse. In the meantime, I had 
been using Mac Draw for several years 
and always wondered how to program 



Dale L. Puckett. who is author of The 
Official BASIC09 Tour Guide and co- 
author, with Peter Dibble, of The 
Complete Rainbow Guide to OS-9, is a 
free-lance writer and programmer. He 
serves as director-at-large of the OS-9 
Users Group and is a member of the 
Computer Press Association. Dale is a 
U.S. Coast Guard lieutenant and lives 
in Rockville, Maryland. 



this kind of magic. I volunteered and 
CoCoDrau was born. 

Don't get me wrong, CoCoDraui is 
very primitive. With the version we 
published in our new book you can only 
draw boxes, circles and lines. First, you 
select the object you want to draw from 
the pull-down menu. Then, you move 
the pencil to one corner of the area 
where you would like to draw the 
object. And finally, you move the pencil 
pointer to the opposite corner and click 
the mouse button again. 

In a split second, the object you 
selected from the menu is drawn on the 
screen. It is contained within the area of 
an imaginary box you defined by click 
on two corners. 

After completing CoCoDrau and the 
new book, I amused myself for several 
hours by drawing many different ob- 
jects using the three graphics tools. 
Before long, however, it was time to 
write "KISSable OS-9" for the Sep- 
tember issue of rainbow. I was so 
fascinated with CoCoDraw that I wanted 
to enhance it. Before the column was 
complete, we had added a bar and an 
ellipse to the toolbox. We also used a 



new method to address the packet of 
information from the mouse and 
changed the way the program worked. 
We gave it a new name, too — KI5S- 
Drau was born! 

After you selected a tool with KISS- 
Draw, you moved the pencil to one 
corner of the target area and pushed the 
mouse button. This time, however, you 
did not release the button or click it. 
Rather, you held the button down and 
dragged the pencil across the screen 
until you reached the opposite corner of 
the target area. When you released the 
button, KISSDraw went to work and 
drew the object you had selected. 

This method of operation was better, 
but it still left a lot to be desired. For 
example, it was hard to imagine what 
an ellipse placed in the area between the 
two corners would look like. But, it 
worked better than the original version 
where you simply clicked the mouse in 
the two corners. 

And while you were typing in the 
code, you were learning how to make 
menus out of overlay windows and how 
to use them. You were also learning how 
to pass parameters to OS-9's internals 
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withtheSysCall procedure and how to 
get back and use a packet that contains 
several dozen pieces of information 
generated by the mouse plugged into the 
high resolution adapter. 



"Once you have 
bootstrapped a 
minimal program, 
you can use it to 
build additional 
parts. " 



We played with September's KI5S- 
Drau for several hours too. We still 
wanted more! Enter KISSDrau 2. 

Once you have bootstrapped a min- 
imal program, you can use it to build 
additional parts. That's the way KISS- 
Draw seems to be evolving. During the 
past month we discovered how to make 
BAS1C09 draw the object we selected in 
varying sizes as we moved the pencil 
around on the screen. Each time we 
move the pencil, the program erases the 
object it drew at that location and draws 
another one at the new location. 

As you pull the pencil across the 
screen with the mouse, the box (or 
whatever you happen to be drawing) 
expands or contracts before you. When 
you get it just the size you want it, you 
release the mouse button and KISSDrau 
finishes the drawing and leaves the 
object on the screen. 

That addition was nifty enough, but 
we wanted more. We didn't want to have 
to type a number to select an object 



0038 
004D 



Editor's Note: The following procedures will be 
combined into one source file, KI55Drauj2. on this 
month 's RAINBOW ON DISK. 

Listing l:KISSdMenu 

(* Procedure to draw ' cools ' menu bar on screen 



DIM vert: INTEGER 

RUN gfx2("pattern",0,0) 

RUN gfx2("logic","off") 

(* We'll, draw an outline of the menu bar first 
RUN gfx2("box",10,10,40,178) 

(* Now we need to fill in the individual boxes 
FOR vert-22 TO 178 STEP 12 

RUN gf x2("line".10, vert, 40. vert) 
NEXT vert 

/ 
(* Now we'll add the icons 
(* First, an Icon that means 'Draw a Line* 

RUN gfx2("line",12,20.38.12) 

(* Now an Icon for a Box 
RUN g.':x2("box".14,24,36.32) 

(* A Circle is our next Icon 
RUN gfx2("clrcle",25,40,8) 

(* Now we need an icon for an ellipse 
RUN gfx2("ellipse",25,52,12,3) 

(* Now, an icon for a Bar 
RUN gfx2("bar",14,61,36.67) 

(* An Icon for an Arc is next 

RUN gf x2 ("arc" , 25 , 76 , 7 , 4 , - 1'. , - 8 , 18 , 14) 

(* Now we'll fake a spray can 
RUN gfx2("box",21,86,29,93) 
RUN gfx2("bar",24,84,26.86) 
RUN gfx2("line",26,84,34,82) 
RUN gfx2("line",26.84,38,84) 
RUN gfx2("line",26,84.34,85) 

<* We'll let the Letter 'T' be an icon 
(* to represent typing text 
RUN gfx2("curxy",3,12) 
PRINT "T"; 

(* For a freehand icon, we'll use two 
(* crossed arcs 

RUN gf x2("arc" , 20 , 114 , 7 , 4 , -14. -8 , 18 , 4) 
RUN gfx2 ("arc", 3?, lip, 7, 4, 14, 8, -18, -4) 

(* Now we'll give you five fill 
(* patterns to choose from 
(* Large Dots First 
RUN gfx2 ("pattern". 204. 8) 



0061 
008F 

00A7 
00D5 
00EA 
0106 
0111 
0112 
012C 
0156 
0157 
016F 
0170 
0188 
019F 
01A0 
01BC 
01D3 
01D4 
01F9 
0214 
0215 
02 2E 
0245 
0246 
0263 
0288 
0289 
02A6 
02BD 
02D4 
02EC 
0104 
031C 
031D 
0343 
035E 
0371 
0377 
0378 
039E 
03AD 
03D2 
03F7 
03F8 
0417 
0431 
0444 



OS-9™ SOFTWARE/HARDWARE 



SDISK— Standard disk driver module allows the full use of 35, 40 
or 80 track double sided disk drives with COCO OS-9 plus you 
can read/write/format the OS-9 formats used by other OS-9 
systems. (Note: you can read 35 or 40 track disks on an 80 track 
drive). Now updated for OS-9 ver. 02.00.00 $29.95 

SDISK + BOOTFIX— As above plus boot directly from a double 
sided diskette S35.95 

L1 UTILITY PAK— Contains all programs from Filter Kits Nos. 1 
& 2 plus Hacker's Kit #, plus several additional programs, Over 
35 utilities including "wild card" file cmds, MacGen command 
language, disassembler, disk sector edit and others. Very useful, 
many of these you will find yourself using every time you run your 
system. These sold separately for over $85. $49.95 
SKIO— Hi res screen driver for 24 x 51 display; does key click, 
boldface, italics; supports upgraded keyboards and mouse. With 
graphics screen dump and other useful programs. Now UPDATED 
FOR OS-9 Ver 2.0 $29.95 



PC-XFER UTILITIES— Utilities to read/write and format ss MS- 
DOStm diskettes on CoCo under OS-9. $45.00 (requires SDISK) 

CCRD 512K Byte RAM DISK CARTRIDGE— Requires RS Multipak 
interface, two units may be used together for 1MB RAM disk. 
Addressing is switch selectable. OS-9 level 1 and 2 driver and test 
software included. $169.00 

All disk prices are for CoCo OS-9 format; for other formats, specify 
and add $2.00 each. Order prepaid or COD, VISA/MC accepted, add 
$1.50 S&H for software, $5.00 for CCRD; actual charges added for 
COD. 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, OR 97223 (503) 244-8152 

(For best service call between 9-11 AM Pacific Time) 

OS-9 IB a trademark ol Mlcroware and Motorola Inc. 
MS-DOS Is a trademark ol Microsoft, Inc. 
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0459 


RUN gfx2("fill".25,125) 


046B 


(* Followed by horizontal Unas 


043A 


RUN gfx2("pactern".204,3) 


049F 


RUN gfx2("fill".25,135) 


04B1 


(* Now we'll use vertical lines 


PAD? 


RUN gfx2("pattern".204,2) 


04ES 


RUN gfx2("fill".25.146) 


04F7 


C* and left slanted lines 


051? 


RUN gfx2("pattcrn",204,5) 


0525 


RUN g£x2("fUl , ',25,156) 


0537 


(* and finally right slanted lines 


0559 


RUN gfx2("pattern" ,204,6) 


056E 


RUN gfx2("fill",25.172) 


0580 


C* You must always return to a solid pattern 


05 AC 


<* before you try to draw again 


05CB 


RUN gfx2( "pattern" ,0,0) 


05E0 




05E1 


(* Now we'll draw a menu bar across the top of the screen 


061A 


(* Initially, we'll only put a 'file' menu on it. 


064B 


RUN gfx2("bar",0.0.639,8) 


0663 


RUN gfx2("curxy".10,0) 


0676 


RUN gfx2("revon") 


0683 


PRINT "File "; 


068D 


RUN gfx2("revoff") 


Listing 2 


KISSDraui2 


?m 


(* Drawing program that lets you select a tool by clicking 


003A 


(* on an ICON 


0047 




0048 


TYPE regisctrs-ec,a,b,dp:BYTE; x.y.u: INTEGER 


006D 




006E 


TYPE rodent-Vld,Acc,ToTm:BYTE; X1:INTEGER; TTTo:BYTE; TSSt; 




INTEGER: CBSA,CBSB,CCtA.CCtB,TTSA.TTSB,TLSA,TLSB:BYTE 




; X2,BDX,BDY:INTEGER: Stat .Res: BYTE; AcX.AcY.WRX.WRY: 




INTEGER 


00DF 




00E0 


DIM mouse : rodent 


00E9 


DIM pointer, pencil, line .box, circle .ellipse , bar , arc, fill , text 




.freehand: BOOLEAN 


0118 


DIM patterns ,hor= lines .vert lines .slancrighc .slant left .dots: 




BOOLEAN 


0133 




0134 


(* First we need to start with a clear screen 


0161 


C* and draw the menu 


0175 




0176 


RUN gfx2("clear") 


0183 


RUN KISSdMenu 


0187 




0188 


C* We must bring the high resolution mouse on line 


01BA 


(* and find out where it is pointing 


01DE 




01DF 


RUN setupraouse 


01E3 




01E4 


LOOP 


01E6 




01E7 


pointer: -FALSE 


01ED 


REPEAT 


01EF 


RUN gecKISSmouse (mouse) 


01F9 




01FA 


IF mouse. AcX<40 OR mouse. AcY<10 THEN 


0213 


pointer :=TRUE 


0219 


ELSE 


02 ID 


pointer -.-FALSE 


0223 


ENDIF 


0225 




0226 


IF pointer THEN 


022F 


RUN gfx2("gcset", 202,1) 


0242 


ELSE 


0246 


RUN gfx2("gcset",202,2) \(* A pen to draw with 


026E 


ENDIF 


0270 




0271 


RUN gfx2("putgc" .mouse. AcX. mouse. Ac Y) 


028E 


UNTIL mouse. CBSAO0 AND pointer 


02A0 




02A1 


RUN gfx2("bell") \RUN gfx2("bell") 


02B9 


GOSUB 10 \REM Go select the proper tool 


02D9 


GOSUB 20 \REM Go Use It 


02E9 


ENDLOOP 


02ED 





from a pull-down menu. We thought it 
would be nicer if we could point to an 
object, click the mouse button to select 
a tool, then use that tool to draw the 
desired object. To do the job, we wrote 
KISSdMenu. 

This month, we present new versions 
of KISSDrawBox and KISSDrawEl- 
llpse. Compare KISSDrawBox to the 
earlier versions in CaCoDraw and KISS- 
Draw. Compare KI5SDrauEllipse to 
the version we published last month. As 
you can see, the modifications required 
to add the "watch while you draw" 
feature were minimal. Study the differ- 
ences and file them in your bag of tricks. 
In fact, you can use them to modify last 
month's version of KISSDrauiLine, 
KISSDrauCircle and KI5SDrauBar. 

Notice again the advantages of the 
bootstrapping process. Once you have 
a minimal solution running, you can use 
it to fine-tune future versions. For 
example, the new versions of KISS- 
DrauBox and KISSDrawEilipse can 
be run from the KISSDrauObjects 
menu we published last month. In fact, 
we used the original menu to test our 
new procedures. 

Our listings this month include 
KISSDraw2, KISSdMenu, KISSDrau- 
Ellipse, KISSDrauiBox and KISS- 
FreeHand. Short procedures are in- 
cluded for arc, full and text tools. 

Once again, keep in mind that our 
efforts here are still primitive. We 
haven't worked out all the details 
needed to update the menu when it's 
overwritten, etc. Again we are boot- 
strapping ourselves into a new and 
exciting world. There are so many 
features we want to add and so little 
time. We need to write a procedure that 
will let us pick a pattern and fill an area 
on the screen. Notice, we have already 
placed the icons for this function on the 
menu. 

We also need to complete a pull-down 
menu that will pop up in an overlay 
window when you click the mouse 
button while pointing to the word file 
on the menu bar at the top of the screen. 
On that pull-down menu, we hope you 
will eventually be able to select com- 
mands that let you undo your last act, 
save your drawing commands to a file 
while you are working, load a file 
created earlier, print the screen to your 
printer, or erase an area of the screen. 

Further in the future, it would be nice 
to add commands that let you change 
the foreground and background colors 
— either from a pull-down menu or by 
clicking on an icon. And ultimately, we 
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hope to design a data structure that will 
let us save each object we draw in 
memory as we draw it. After we do this, 
we will be able to select an object so we 
can edit, duplicate, move, change or 
delete it. 

In this month's offering, the proce- 
dure KISSDraw2 is the driving force. It 
runs KISSdMenu to draw the menu, sets 
up the mouse and then enters a loop 
waiting for the user to push the button 
on the mouse. If the mouse is over the 
drawing area, the graphics cursor looks 
like a pencil. If it is over the menu bars, 
it looks like an arrow or pointer. 

As soon as you point to a drawing 
tool and click the mouse button, KIS5- 
Drau calls the proper tool and lets you 
draw exactly one object. Once that 
object is drawn, it returns to the loop 
and waits for you to select another tool. 
This loop will run forever or until you 
press BREAK to stop execution of the 
program. Eventually we'll have to add 
a quit command to the file menu. 

If you would like to contribute any- 
thing to this package, get in touch with 
me at 805 West Edmonston Drive, 
Rockville, MD 20852. If we all pool our 
efforts, we could come up with one heck 
of a drawing program. Let me know 
what you think. 

Presently, KlSSdPlenu draws the 
menu "live" when it is called by KI55- 
Drau2. Eventually, we will pack 
KISSdMenu and run it from the OS-9 
shell, redirecting its output to a file. 
Then, we'll simply use the BASIC09 
Shell command to merge that file into 
our window. After we have done this, 
our menu will appear on the screen 
several times faster. 

Later on, we'll probably use KIS5- 
FreeHand to draw a freehand logo, save 
it in a buffer and scale it into the menu 
bar as a new freehand icon. That's 
another one that will have to wait. 



02EE 10 


(* Subroutine to determine which tool 




0316 


(* artist wants to draw with 




0332 






0333 


IF mouse.AcY<22 AND mouse. AcY>10 THEN line:=TRUE \ RETURN 




0353 


ELSE 




0357 


line: -FALSE 




035D 


ENDIF 




035F 






0360 


IF mouse. AcY>22 AND mouse. AcY<34 THEN box:-TRUE \ RETURN 




0380 


ELSE 




0384 


box: -FALSE 




038A 


ENDIF 




038C 






038D 


IF mouse. AcY>34 AND mouse. AcY<46 THEN circle:-TP.UE \ RETURN 




03AD 


ELSE 




P3BL 


circle: -FALSE 




03B7 


ENDIF 




03B9 






03BA 


IF mouse. AcY>46 AND mouse. AcV<58 THEN elllpse:-TRUE \ RETURN 




03DA 


ELSE 




03DE 


oil ipse: -FALSE 




03E4 


ENDIF 




03E6 






03E7 


IF mouse. AcY>58 AND mouse. AcY<70 THEN bar:-TRUE \ RETURN 




0407 


ELSE 




040B 


bar: -FALSE 




?411 


ENDIF 




0413 






0414 


IF mouse. AcY>70 AND mouse. AcY<82 THEN arc:-TRUE \ RETURN 




0434 


ELSE 




0438 


arc: -FALSE 




043E 


ENDIF 




0440 






(1441 


IF mouse. AcY>82 AND mouse. AcY<94 THEN fill.: -TRUE \ RETURN 




SJ461 


ELSE 




0465 


fill: -FALSE 




046B 


ENDIF 




046D 






046E 


IF mouse. AcY>94 AND nouse. AcY<106 THEN texc:-TRUE \ RETURN 




048E 


ELSE 




0492 


text: -FALSE 




0498 


ENDIF 




049A 






049B 


IF mouse. AcY>106 AND mouse .AcY<118 THEN freehand : -TRUE \ RETURN 




04 BB 


ELSE 




04BF 


freehand: -FALSE 




04C5 


ENDIF 




04C7 






04C8 


RETURN 




04CA 






04CB 20 


C* Subroutine that runs the proper tool 




04F5 






04F6 


IF line THEN RUN KISSdrawl Ine(mouse) \line:-FALSE \ RETURN 




0510 


ENDIF 




0512 






0513 


IF box THEN RUN KISSDrawbox(mouse) \box:-FALSE \ RETURN 




052D 


ENDIF 




052F 







COCO 3 OS-9 
HARDWARE UPGRADES 




The PLUS 100 — The PREMIER 512K 
Memory Expansion for the COCO 3. 

Brochures and price list available on request. 



DISKMASTER Disk Drive Systems 
Absolutely Without Equal in the COCO World! 

• 20 MB SCSI Hard Drive 

• 1 MB High Speed Floppy Drive 

• Hardware Real Time Clock with Battery Backup 

• 3 Hardware Serial Ports 

• Bi-Directional Centronics Compatible Parallel Port 

• Sophisticated OS-9 Drivers by D. P. JOHNSON 

• RAMDISK options up to 1.5 MB 

• Expansion Port for additional Floppy Drives 

• Single Cable Interlace to COCO 3 

• A VERY HIGH PERFORMANCE, 4 Station, Multi-User System 
can easily be assembled using a DISKMASTER System. 

TMM/HEMPHILL ELECTRONICS, INC 

4480 Shopping Lane 
Slmi Valley, CA 93063 

(805)581-0885 

(Mon. thru Thurs., 1:30 to 4:30 PM Pacific Time) 
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The Rainbow Bookshelf 




Fill out your CoCo library 
with these selections 



The Complete Rainbow Guide to OS-9 

Authors Dale Puckett and Peter Dibble show how to take 
advantage ot OS-9's multitasking and multiuser features. An easy- 
to-read, step-by-step guide packed with hints, tips, tutorials and free 
software in the form of program listings. 
Book $19.95. Disk Package $31 (2 disks, book not included) 



The Rainbow Book of Simulations 

20 award-winning entries from THE RAINBOW'S first Simulations 
contest. You are a Civil War Commander, an air traffic controller, 
a civil defense coordinator, or a scientist on Mars . . . your wits are 
on the line. 
Book $9.95, Tape $9.95 



The Windows and Applications Disk for The 
Complete Rainbow Guide to OS-9 Level II, Vol. I 

Puckett and Dibble have done it again! Here are all the great 
programs from the first volume of the Level II guide. Clever new 
applications ready to run. Disk $19.95 

The Rainbow Introductory Guide to Statistics 

Dr. Michael Plog and Dr. Norman Stenzel give a solid introduction 
to the realm of statistical processes and thinking for both the 
beginner and the professional. (80-column printer required.) 
Book $6.95, Tape or Disk $5.95, Package $11.95 

The First Rainbow Book of Adventures 

Contains 14 winning programs from our first Adventure contest. 
Includes Sir Randolph of the Moors, Horror House, One Room, Dr. 
Avaloe and more. Plus hints, tips on solving Adventures. 
Book $3.50, Tape $3.50 

The Second Rainbow Book of Adventures 

Featuring 24 of the most challenging Adventure games ever 
compiled. Meet the Beatles and battle the Blue Meanies, find a 
hidden fortune, or win the heart of a mysterious princess. Ring 
Quest, Secret Agent Man, Dark Castle, Curse ol Karos and more! 
Book $13.95, Tape $13.95 

The Third Rainbow Book of Adventures 

The excitement continues with 19 new Adventures. Discover 
backstage intrigue at the London Theatre, attempt a daring space 
rescue, or defeat evil in the year 2091 as a genetic android. Evil 
Crypt. Spymaster, Time Machine, The Amulet, and that's only the 
beginning! Book $1 1 .95, Tape $9.95, Two-Disk Set $14.95 




The Second Rainbow Book of Simulations 

The 16 winners from our second Simulations contest. Fly through 
dense African jungle, bull your way down Wall Street, lead a bomb 
squad, or try your hand at Olympic events. Test your skills and 
talents. Book $9.95, Tape $9.95, Disk $10.95 



r 



/ want to start my own Rainbow Bookshelf! 

Name 

Address 

Cit 



"~l 



ZIP 



ity 

State 

□ Payment Enclosed, or □ Charge to: 

□ VISA □ MasterCard □ American Express 

Account Number 

Card Expiration Date 

Signature 

Please send me: 
Please send me: 



D The Rainbow Book of Simulations 

O Rainbow Simulations Tape 

D The Second Rainbow Book of Simulations 

D Second Rainbow Simulations Tape 

D Second Rainbow Simulations Disk 

D The Complete Rainbow Guide to 0S-9 (book only) 

D Rainbow Guide to 0S-9 Disk Package (2 disks) 

D The Windows & Applications Disk for 

The Complete Rainbow Guide to 0S-9 Level II, Vol. I 

□ The Rainbow Book of Adventures (lirst) 
D Rainbow Adventures Tape (lirst) 
D The Second Rainbow Book ol Adventures 
D Second Rainbow Adventures Tape 
C The Third Rainbow Book of Adventures 
D Third Adventures Tape 

□ Third Advenlures Disk Set (2 disks) 
D Introductory Guide to Statistics 

□ Guide to Statistics Tape or Disk (indicate choice) 

□ Guide to Statistics Package (indicate choice ol tape or disk) 
Add $1.50 per book Shipping and Handling in U.S. 

Outside U.S., add $4 per book 

Kentucky residents add 5% sales tax 

(Allow 6 to 8 weeks lor delivery) Total 

Mail to: Rainbow Bookshelf, The Falsolt Building, P.O. Box 385, 
Prospect, KY 40059 

To order by phone (credit card orders only) call (800) 847- 
0309, 8 a.m. to 5 p.m. EST. For other inquiries call (502) 
228-4492. 

Please nole: The tapes and disks oflered by Tne Rainbow Bookshell are not sland-alone products. 
That is, they are intended to be an adjunct and complement to the books. Even il you buy the tape 
or disk, you will still need the appropriate book. OS-9* Is a registered trademark ol the Microware 
Systems Corporation. 



S 9.95 . 
S 9.95 - 

S 9.95 - 
$ 9.95 . 
$10.95 . 
$19.95 . 
$31.00. 

$19.95. 
$ 7.95 . 
$ 7.95 . 
$13.95. 
$13.95 . 
$11.95. 
$ 9.95 . 
$14.95 . 
$ 6.95 . 
$ 5.95 . 
$11.95. 



' 



As you type in the listings this month, 
you'll notice that these programs use the 
procedures SetUpMouse and GetKISS- 
Mouse, which we published in Sep- 
tember. You'll also need KISSDrauCir- 
cle, KISSDrawLine and KISSDrawBar 
from last month's listings. KISSDrau2 
will run them if you click on the corres- 
ponding icon. 

You'll probably want to delete the 
lines that print the instructions on the 
screen after you know how to use each 
tool because KISSDrau2 assumes you 
know how to use each tool. It does not 
erase the prompt lines like the proce- 
dure DrauiObjects did. 

We run KISSDraw in a 640-by-l92 
pixel. Type 07, four-color window. 
Before you run them, you will need to 
merge the SYS'StdFonts, SYS' 
StdPtrs and SYS'StdPats A files into 
an OS-9 graphics window. We do this in 
a procedure file we call from Startup. 

That's about it for October. Next 
month, we hope to add more to KISS- 
Draw. If you have ideas for KISSDraw 
or even a short procedure to add to it, 
drop it in the mail. In the meantime, be 
sure to join us in Princeton, New Jersey, 
for RAIN BOW fest! □ 



PS30 



(J54A 
(J54D 



(1567 
0569 
056A 
JJ584 
(1586 
0587 
(I59B 
?59D 
(I59E 
?5B2 
•if.'- 
JJSB5 
05C9 
05CB 
f)5CC 



S>5F.(J 
i)5E2 

P5E4 



IF circle THEN RUN KISSDravClrcle(mouse) \eircle: -FALSE \ RETURN 

ENDIF 

IF ellipse THEN RUN KISSDravEllipse(mouse) \ellipse: -FALSE \ 

RETURN 
ENDIF 

IF bar THEN RUN KISSDrawBar (mouse) \bar:-FALSE \ RETURN 
ENDIF 

IF arc THEN RUN KISSDrauArc \arc:-FALSE \ RETURN 
ENDIF 

IF fill THEN RUN KISSDrawFill \flll: -FALSE \ RETURN 
ENDIF 

IF text THEN RUN KISSHandlcTexc \cexc: -FALSE \ RETURN 
ENDIF 

IF freehand THEN RUN KISSFreehand \freehand: -FALSE \ RETURN 



ENDIF 
RETURN 



Listing 3: KISSDrawBar 



9999 

P02C 

0JJ6A 
(JJJ6B 
W9 
P)J91 



(* Program co drav a bar ac location poinced 
(* co by high resolution mouse. 

(* Uses procedure KISSGecMouse 

TYPE regiscers-cc,a,b,dp:BYTE; x.y.u: INTEGER 

TYPE rodent-Vld.Acc.ToTmiBYTE; XI: INTEGER; TTTorBYTE; TSSc: 
INTEGER ; CBSA , CBSB . CCCA , CCcB . TTSA . TTSB , TI.SA , TLSB : BYTE 



Model 101 
Interface $39.95 



Model 104 Deluxe 
Interface $51.95 



Model 102 
Switcher $35.95 



Model 105 
Switcher $14.95 




• Serial to parallel interlace 

> Works wilh any COCO 

> Compatible with "Centron- 
ics" parallel input printers 

> 6 switch selectable baud 
rates 300-600-1200-2400- 
4800-9600 

i Small size 

4.5" x 2.5" x 1.25" 

» Comes complete with 
cables to connect to your 
computer and printer 



Other Quality 
Items 

High quality 5 screw shell C- 
10 cassette tapes. S7.50 
dozen 

Hard plastic storage boxes tor 
cassette tapes S2. 50 dozen 

Pin-Feed Cassette Labels 
While S3.00/100 
Colors S3.60/100 (specify 
red, blue, yellow, tan) 



Same features as 101 plus 

• Built in serial port lor your 
modem or other serial device 

• Switch between parallel 
output and serial output 

• Size IS 4.5" x 2.5" x 1 .25 " 

• Comes complete wilh 
cables to connect lo your 
computer and printer 



NEW! Cables for 
your COCO 

• U.L. listed loil-shielded cable 

• 2 Types: male'lernale exten- 
sion cables (used between 
a serial device and existing 
cable) malemale cables 
(used between two serial 
devices such as a modem 
and one ol our switchers). 

• 3 It. ■$3.95, 6 ft. $4.49, 
10ft./$5.59 Specify MM 
or MF and length. 



• Connect lo your COCO 
serial pod and have 3 switch 
selectable serial ports 

• Color coded indicator lights 
show switch position 

• Lights also serve as a 
power on indicator for your 
COCO 

• Heavy guage blue anodized 
aluminum cabinet with non- 
slip rubber feel 

The 101 and 104 require 
power to operate. Mosl prim- 
ers can supply power lo your 
interface (Star, Radio Shack 
and Okidata are jusl a lew that 
do - Epson and Seikosha do 
not). The interlaces can also 
be powered by an AC adap- 
tor; Radio Shack model 273- 
1431 plugsintoallmodels.il 
you require a power supply, 
add a "P" to the model number 
and add $5.00 lo the price. 
(Model 101P S44.95, Model 
104PS56.95) 



• Connecls lo your COCO 
lo give you 2 switch select- 
able serial pons 

• 3 fool cable lo connect lo 
your COCO'S serial port 

• The perlect item lo use lo 
conned a printer and a 
modem lo your COCO 

• Small in size. only4. 5x2.5 
x 1.25 



The Model 101. 102. 104 and 
1 05 work with any COCO any 
level basic and any memory 
size. These products are co- 
vered by a I year warranty. 

The Model 1 1 and 1 04 work 
wilh any standard parallel 
input printer including Gemini. 
Epson. Radio Shack, 
Okidata, C loth, Seikosha. 
Panasonic and many others. 
They support BASIC print 
commands, word processors 
and graphic commands. 

We manufacture these 
products - dealer inquiries 
are invited. 



Cassette Label 
Program $6.95 

• New Version - lape trans- 
ferable lo disk - save and 
load labels from tape lo disk 

• Prints 5 lines ol information 
on pin-feed cassette labels 

• Menu driven, easy to use 

• Siandard. expanded and 
condensed characlers 

• Each line ol text auto- 
matically centered 

• Label display on CRT. en- 
abling editing belore printing 

• Program comes on lape 
and is supplied with 24 
labels to gel you started 

• 16K ECB required 

Ordering 
Information 

Free shipping in the United 
Slates (excepl Alaska and 
Hawaii) on all orders over 
S50.00 Please add S2.50 for 
shipping and handling on or- 
ders under S50.00 
Ohio residents add 6% 
sales lax. 

Call (513) 677-0796 and use 
your VISA or MASTERCARD 
or request COD (Please 
add S2.00 lor COD. orders) 
II you preler, send check or 
money order; payable in US 
Funos to' 

Metric Industries 
P.O. Box 42396 
Cincinnati, Ohio 
45242 
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Simple Solutions 



By David W. Ostler 



Here are possible answers to the 
exercises presented in "Basic for 
Beginners, Lesson I" (September 
1987, Page 26). 

Exercise 1 

10 CLS : A=0 : PRINT : PRINT : IHPUT"ENT 
ER DESIRED NUMBER"; A 

20 CLS : PRINT : PRINT : PRINT : PRINT"W 

ORKING " 

30 3=A*2:FORX=1TO500STEP1:NEXT 
40 CLS : PRINT : PRINT : PRINT : PRINT" 

TOTAL IS:";B 
50 PRINT: PRINT: PRINT: PRINT: PRINT 

11 HIT AN* KEY TO CONTINUE" 
60 AS=INKEYS:IFA$=""THEN60ELSE10 

Exercise 2 

10 CLS: PRINT: PRINT"ENTER YOUR NA 

HE: ":INPUTA$ 

15 PRINT"ENTER YOUR ADDRESS :": IN 

PUTB$ 

20 PRINT"ENTER YOUR CITY":INPUTC 

1$ 

25 PRINT"ENTER YOUR STATE: " : INPU 

TC2$ 

30 PRINT"ENTER YOUR ZIP:":INPUTC 

3$ 

40 PRINT" ENTER YOUR TELEPHONE NU 

HBER:":INPUTD$ 

50 CLS: PRINT : PRINT"WORKING 

it 

60 FORX=1TO500STEP1:NEXT 

70 CLS: PRINT: PRINT" 1. YOUR NAME: 

": PRINT" ";A$:PRINT"2. YOUR AD 

DRESS:": PRINT" " ;B$ : PRINT"3 . Y 

OUR CITY, ST, ZIP:": PRINT" ";C 

1$;", ";C2$;", " ;C3$:PRINT"4 . YO 

U PH. NO:": PRINT" ";D$ 

90 PRINT: PRINT" IS ALL DATA CORR 

ECT (Y/N)?" 

100 H$=INKEY$:IFH$=""THEN100ELSE 

IFH$="Y"THEN110ELSEIFH$="N"THEN1 

0ELSE100 

110 CLS:PRINT"YOU HAVE SUCCESSFU 

LLY DONE THIS PROGRAM. CONGRATUL 

ATIONS! !":END 



DDDDDC 
□ □□□□□[ 

DDDDDD 

□nnnnn 





1 X2.BDX,3DY:INTEGER; Scat .Res : BYTE; AcX.AcY.WRX.WRY: 








INTEGER 






3ip2 




/ 




Pl?3 


DIH Mouse : rodenc 






pipe 


DIM ScarcX, StarcY, CurrX. CurrY: INTEGER 






PUF 








P12P 


<* Lee's draw wlch a pencil cursor 






P142 








0143 


RUN gfx2("gcset", 202.2) 






P156 








P157 


(* Enable XOR logic 






P16B 








P16C 


RUN gfx2("logic","xor") 






P17F 








pisp 


REPEAT 






P182 


RUN gctKISSmouse(Mouse) 






P18C 


RUN gfx2("puCgc", Mouse. AcX, Mouse. AcY) 






P1A9 


UNTIL Mouse. CBSA-op 






P1B7 








P1B8 


ScarcX:-Mousi.BDX 






plC3 


ScartY: -Mouse. EDY 






plCE 


CurrX:-Mouse.AcX 






P1D9 


CurrY : -Mouse. BDY 






P1E4 








P1E5 


RUN gfx2("sotdptr", Mouse. BDX, Mouse. BDY) 






?2?4 








P2P5 


WHILE Mouse. CBSAO-P DO 






P214 


RUN gecKISSmouse(Mouse) 






P21E 


IF CurrXOMouse.AcX OR CurrYOMouse. AcY THEN 






JJ239 


RUM gf x2< "boy " .CurrX, CurrY) 






P24E 


Cur rX: -Mouse. AcX 






P259 


CurrY:-House.AcY 






P264 


RUN gfx2("oor.", CurrX, CurrY) 






P279 


ENDIF 






P27B 


RUN g£x2("pucgc", Mouse. AcX, Mouse. AcY) 






P298 


ENDWHILE 






P29C 








P29D 


RUN gfx2 ("logic" , "off") 






^2Bp 








P2B1 


RUN gfx2("bar", Mouse. AcX, Mouse. AcY) 






P2CC 








JJ2CD 


END 






P2CF 








P2DP 








Listing 4: KISSDrauLlne 






9999 


(* Program Co draw a line ac location poinced 






PP2D 


(* Co by high resolucion mouse. 






PP4C 








PPAD 


(* Uses procedure KISSCetMouse 






PP6B 








PP6C 


TYPE regiscers-cc,a,b,dp:BYTE; x.y.u: INTEGER 






PP91 








PP92 


TYPE rodenc-Vld,Acc,ToTm:BYTE; XI: INTEGER; TTTo:BYTE; TSSc: 

INTEGER; CBSA,CBSB,CCCA.CCCB.TTSA,TTSB,TLSA,TLSB:BYTE 
; X2, BDX. BDY: INTEGER; Scac, Res: BYTE; AcX.AcY.WRX.WRY: 

INTEGER 






P1P3 








P1P4 


DIM ScarcX , ScarcY . GurrX , CurrY : INTEGER 






jril.7 


DIH Mouse: rodenc 






P12P 








P121 


(* Lee's draw wich a pencil cursor 






P143 








P144 


RUN gfx2<"gcset",2P2,2) 






P157 








P158 


RUN gfx2<"logic","xor") 






P16B 








JJ16C 


REPEAT 






P16E 


RUN gecKISSmouse (Mouse) 






P178 


RUN gf x2 ( "puege " , Mouse . AcX , Mouse . AcY) 






(1195 


UNTIL Mouse. CBSAOP 






?1A3 








(J1A4 


StartX:-Mouse.BDX 






01 AF 


ScarcY: -Mouse. BDY 






OIBA 


CurrX:-Mouse.AcX 






P1C5 


CurrY: -Mouse. AcY 






piDp 








plDl 


RUN gfx2("secdpcr", ScarcX, ScartY) 






P1EA 








plEB 


WHILE Mouse. CBSAop DO 






P1FA 








P1FB 


RUN gecKISSmouse(Mouse) 






P2P5 








P2P6 


IF CurrXOMouse.AcX OR CurrYo-Mouse.AcY THEN 






P221 


RUN gfx2( "line", ScarcX, ScarcY, CurrX, CurrY) 






P241 








P242 


CurrX: -Mouse . AcX 
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0S9 LEVEL II 

SOFTWARE and BOOKS 

"Frank Hogg Laboratory has supported OS9 longer than ANY other company!!!" 



INSIDE OS9 
LEVEL II 

"Inside OS9 Level II is a gold mine. You'll 
learn more than you can ever remember 
about OS-9 system variables, the CoCo's 
GIMI, the tile managers, the windows, the 
tonts, the descriptors and the bugs. It's a 
reterence work extraordinaire! Buy it!" said 
Dale L Puckett , in the September 1987 
Rainbow . Dale is Co-Author of "The 
Complete Rainbow Guide to OS-9 Level II" 

Just $39.95 



DynaStar 3,4 

WORD PROCESSING 

Since 1981 DynaStar has been improved and 
enhanced to bring you the finest word processor 
available for 0S9. DynaStar 3.4 is the same version 
available for 0S9/68K with added windowing support. 
DynaStar 3.4 also supports any terminal(s) you may 
want to hook to your CoCo. Complete with the 
DynaForm text formatter and mail merge. 

Requires Level II OS-9 and 512K 

ONLY $150 

Upgrade to DynaStar 3.4 $50 






"*\ 



FONT EDITOR 

for OS-9 LEVEL II 

BY Chris Babcock 

CREATE NEW FONTS 
EDIT EXISTING FONTS 



This is a slick new package from a fellow you're going 
to be hearing alot about in the coming years. Now you 
can create or modify your character sets (fonts) to 
make them just the way you want. Req. L II and 51 2K 

ONLY $29.95 



The WIZ 

By Bill Brady 

The Wiz is the First and Only program designed for the 
CoCo III that uses WINDOWS! The Wiz is a smart terminal 
and communications program for the CoCo III and OS9 Level 
II. Making use of multiple windows and overlay windows with 
pop up dialog boxes The Wiz really shines. Features 
include: Autolog- lets you configure The Wiz's colors, 
characters boldface etc., Xmodem and text send and 
receive, sleep mode, conference mode uses a seperate 
window for your text, usage log and much more. Does not 
work with the CoCo's internal bit banger serial port. The 
complete package includes a special ACIA driver that allows 
baud rates from 300 to 19,200 baud. Requires the RS232 
pak or the Disto RS232 or similar port plus a CoCo III with 
OS9 Level II and 51 2K. 

Only $79.95 



Frank Hogg Laboratory, Inc. Est. 1976 - 770 James Street - Syracuse New York - 13203 
315/474-7856 Telex 646740 Visa, M/C, Amex, Diners club accepted. Prices do not include shipping. 



Submitting 

Material 
To Rainbow 

Contributions to the rainbow 
are welcome from everyone. We 
like to run a variety of programs 
that are useful/helpful/fun for 
other CoCo owners. 

WHAT TO WRITE: We are inter- 
ested in what you may wish to tell 
our readers We accept for consid- 
eration anything that is well- 
written and has a practical appli- 
cation for the Tandy Color Com- 
puter. If it interests you, it will 
probably interest lots of others 
However, we vastly prefer articles 
with accompanying programs 
which can be entered and run. The 
more unique the idea, the more the 
appeal. Wehaveacontinuing need 
for short articles with short list- 
ings These are especially appeal- 
ing to our many beginners. 

FORMAT: Program submis- 
sions must be on tape or disk, and 
it is best to make several saves, at 
least one of them in ASCII format 
We're sorry, but we do not have 
time to key in programsand debug 
our typing errors. All programs 
should be supported by some ed- 
itorial commentary explaining 
how the program works. We also 
prefer that editorial copy be in- 
cluded on the tape or disk using 
any of the word processors cur- 
rently available for the Color Com- 
puter. Also, please include a 
double-spaced printout of your 
editorial material and program 
listing. Do not send text in all 
capital letters; use upper- and 
lowercase. 

COMPENSATION: We do pay 
for submissions, based on a 
number of criteria. Those wishing 
renumeration should so state 
when making submissions. 

For the benefit of those who 
wish more detailed information on 
making submissions, please send 
a self-addressed, stamped enve- 
lope (SASE) to: Submission 
Guidelines, the rainbow, The Fal- 
soft Building, P.O. Box 385, Pros- 
pect, KY 40059. We will send you 
comprehensive guidelines. 

Please do not submit material 
currently submitted to another 
publication. 



CurrY: -House. AcY 

RUN gix2("line", StartX, StarrY.CurrX, CurrY) 

END IF 

RUN gfx2("pucgc" , Mouse. AcX. House. AcY) 

ENDWHILE 

RUN gfx2("logic","off") 

RUN gfx2<" line", House. AcX, House. AcY) 



002F 
P04E 
004F 
P06D 

P06E 
0093 

0094 



024D 

0258 

(1259 

JJ279 

027B 

027C 

0299 

029A 

JJ29E 

029F 

02B2 

P2CE 

02CF END 

(J2D1 

02D2 

Listing 5: KISSDrauCircle 

(* Program to draw a circle ac locacion pointed 
(* to by high resolution mouse. 

(* Uses procedure KISSGetMouse 

TYPE reglsters-cc,a,b,dp:BYTE; x , y,u: INTEGER 

TYPE rodenc-Vld, Act, ToTm: BYTE; XI: INTEGER: TTTo:BYTE; TSSt: 

INTEGER ; CBSA , CBSB , CCtA , CCtB , TTSA , TTSB , TLSA , TLSB : BYTE 
; X2,BDX.BDY:INTECER; Stat , Res :BYTE; AcX . AcY . WRX , WRY : 

INTEGER 

DIH Mouse: rodent 

DIM StarcX,StartY,CurrX,CurrY: INTEGER 

(* We'll use pencil cursor 
RUN g£x2("gcsec",202,2) 

(* Enable XOR logic, then 

(* lee cursor follow mouse until button is pushed 

RUN gfx2("logic","xor") 

REPEAT 

RUN gecKISSmouse (Mouse) 

RUN gfx2("pucgc", Mouse. AcX. Mouse. AcY) 
UNTIL House. CBSAOy 

StartX : -House. BDX 

StartY:-House.BDY 

CurrX: -Mouse. AcX 

CurrY: -Mouse. AcY 

RUN gfx2("setdptr", StartX, StartY) 



0105 
0106 
010F 
0122 
3123 
013E 
0151 
j!152 
016B 
(U9C 
019D 
01B0 
01BI 
JJ1B3 
JJ1BD 
(UDA 
01E8 
01E9 
JUF4 
JJ1FF 
020A 
0215 
022E 
022F 
?23(J 
JJ23F 
0249 
0264 
027B 
9286 
0291 
02A8 
02AA 
02C7 
02CB 
02CG 
02DF 
02F.0 
02FD 
02FE 
PW 

0301 

Listing 

0000 

PJ32F 
0062 
0099 
00D3 
010D 
013F 
01 5 B 
015C 
0194 
01CA 
01F6 
01F7 
021C 



WHILE House. CBSAO0 DO 
RUN gecKISSmouse (Mouse) 
IF CurrXOMouoe.AcX OR CurrYOHouse . AcY THEM 

RUN gfx2("clrclo" . ABS(CurrX-ScartX)) 

CurrX:-Mousc.AcX 

CurrY: -Mouse. AcY 

RUN gfx2("circle",ABS(CurrX-ScarcX)) 
ENDIF 

RUN gf x2 ( "puege " , House , AcX . Mouse . AcY) 
ENDWHILE 

RUN gfx2("logic","off") 

RUN gfx2("circ]e",ABS(Mouse.BDX-Mous«.AcX)) 

END 



6: SetUpMouse 

(* This procedure uses the program 'SysCall' to 

(* do a set scacus call which sees up OS-9 to treat 

(* the Color Computer Mouse as a high resolution device 

(* using the right joystick port. Because, this change is 

(* syseemwide, another program using the mouse later would 

(* also need to know how to use the optional high 

(* resolution mouse adapter. 

(* Since this sec scacus call is also used to change the 
(* key repeat scare constant and delay speed, it tells 
(* OS-9 to leave those parameters unchanged. 

TYPE cegiscers-cc,a.b.dp:BYTE; x,y,u:INTEGER 
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021D 


DIM regs : registers 


0226 


DIM callcode:BYTE 


022D 




022E 


(* Now sec up che mouse paramecers 


0250 




0251 


regs.a:-0 


?25C 


regs.b:-594 


0268 


regs.x:-$0101 


0274 


reg3.y:-$FFFF 


0280 


callcode:-$8E 


0288 




0289 


RUN syscall(callcode ,regs) 


0298 




0299 


END 


029B 




029C 




Listing 


7:GetKISSf1ouse 


9m 


(* Reads Che present location of che mouse and 


y?ZZ 


C* returns tha status of die button. 


wsi 




99S3 


TYPE registers-cc.a,b,dp:BYTE; x,y,u: INTEGER 


0078 




0079 


TYPE rodenc-Vld,Act,ToTm:BYTE; X1:INTEGER; TTTo:BYTE: TSSt: 




INTEGER; CBSA . CBSB . CCcA , CCcB , TTSA , TTSB , TLSA ,TLSB : BYTE 




; X2.BDX.BDY: INTEGER: Stac , Res : BYTE; AcX , Ac Y , WRX . WRY : 




INTEGER 


00EA 




00EB 


DIH ReglscerSec:regiscers 


w 1 * 


DIM callcode:BYTE 


00FB 


PARAH House: rodent 


PljM 




0105 


RegisterSeC.a:-0 


0110 


Regis terSet.b:-S89 


puc 


Regis terSet.x:-ADDR(Hov::,a) 


317A 


ReglsterSet .y:-l 


9135 




9136 


cailcode:=$8D 


013E 




J113F 


RUN syscall(callcode,RegisterSec) 


014E 




014F 


END 


9151 




0152 




Listing 8: KISSFreeHand 


9999 


(* Program to draw freehand with high resolution mouse 


9936 




9937 


(* Uses procedure KISSGetHouse 


9955 




9956 


TYPE registers-cc.a,b.dp:BYTE; x.y.u: INTEGER 


99' B 




99'C 


TYPE rodenc-Vld, Act, ToTm: BYTE; X1:INTEGER; TTTo:8YTE; TSSt: 




INTEGER: CBSA , CBSB , CCtA , CC tB , TTSA , TTSB , TLSA , TLSB : BYTE 




; X2.BDX.BDY: INTEGER; Stat , Res : BYTE; AcX, AcY, WRX. WRY: 




INTEGER 


00ED 




99EE 


DIM House: rodent 


99" 


DIM StartX.StartY: INTEGER 


9192 




9193 


(* Let's draw with a pencil cursor 


9125 




(1126 


RUN gfx2("gcset",202,2) 


0139 




91 3A 


(* We must make sure we have turned on the 


9164 


(* the high resolution mouse 


9189 




0181 


RUN Setupmouse 


0185 




0186 




0187 


REPEAT 


0189 


RUN getKISSMouso(Mouse) 


0193 


RUN gfx2<"putgc". Mouse. AcX, Mouse. AcY) 


01B0 


UNTIL Mouse. CBSAO0 


01BE 




01EF 


StartX:-Mouse.AcX 


01CA 


ScartY:-Mouse.AcY 


01D5 


RUN gfx2("setdpr.r", Mouse. BDX, Mouse. BDY) 


01F4 




01F5 


WHILE Mouse . CBSA-O0 DO 


0204 


RUN gocKISSMouse<Mouse) 


020E 


RUN gfx2("llne", StartX.StartY, Mouse. AcX, Mouse. AcY) 



C0C0 Wizard 



(This is to the tune of The 
Who's "Pinball Wizard.") 

From Ft. Worth down to Pros- 
pect, I thought I'd seen 'em all. 
But 1 ain't seen nothing like it 
in any shopping mall. 

It's brand new from Tandy, it's 
Commodore's nightmare. 
That new little C0C0, sure runs 
some great software. 

I stand like a statue, become part 
of the machine. Pecking at the 
keyboard, I'm staring at the 
screen, 

This CoCo's so much fun, it's 
more than 1 can bear. That new 
little C0C0, sure runs some 
great software. 

He's a C0C0 Wizard, just watch 
his fingers fly, A C0C0 Wizard 
will hack until he dies. How do 
you think it does it -- 1 don't 
know. What makes it so good? 

Can't run Lotus 1-2-3, but it 
burns with Dynacalc, And it 
beats it every time, just ask 
Lonnie Falk, 

That sixty-eight oh nine, no eight 
bit can compare, That new 
little C0C0, sure runs some 
great software. 

I thought I was the home comput- 
er king. But I just handed my 
I/O crown to him. 

Even on my favorite program, his 
graphics are the best, I start by 
typing run, the GIME does the 
rest, 

OS-9 gives me more, multi-task if 
I dare. That new little C0C0, 
sure runs some neat software. 



— Mark E. Sunderlin 
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About 
The One-Liner 
Contest . . , 



the rainbow's One-Liner 
Contest has now been ex- 
panded to include programs 
of either one or two lines. 
This means a new dimen- 
sion and new opportunity 
for those who have "really 
neat" programs that simply 
just won't fit in one line. 

Here are the guidelines: 
The program must work in 
Extended basic, have only 
one or two line numbers and 
be entirely self-contained — 
no loading other programs, 
no calling ROM routines, no 
poked-in machine language 
code. The program has to 
run when typed in directly 
(since that's how our read- 
ers will use it). Make sure 
your line, or lines, aren't 
packed so tightly that the 
program won't list com- 
pletely. Finally, any instruc- 
tions needed should be very 
short. 

Send your entry (prefera- 
bly on cassette or disk) to: 

THE RAINBOW 
One-Liner Contest 

P.O. Box 385 
Prospect, KY 40059 




0234 


RUN gf x2 ( "pucgc " , Hou3e . AcX , Mouse . AcY) 


(!251 


ScartX:-Mouse.AcX 


025C 


S tartY : -Hous e . AcY 


0267 


ENDWHILE 


026B 




026C 


END 


026E 




026F 




Listing 9: KISSDrawEl 1 ipse 


m9 


(* Program which allows more natural drawing of ellipse 


99*1 




0038 


TYPE registers-cc,a.b,dp:BYTE; x,y,u: INTEGER 


005D 




005E 


TYPE rodent-Vld.Act.ToTnwBYTE; xl: INTEGER: TTTo:BYTE; TSSt: 




INTEGER ; cbsa , cbsb , ccca , cctb , tcsa , ttsb , clsa , tlsb : BYTE 




; x2.bdx,bdy: INTEGER; Stat .res: BYTE; AcX,AcY,WrX,WrY: 




INTEGER 


jrpcF 




00D0 


DIM Mouse: rodent 


00D9 


DIM ScartX . S tartY , CurrX , CurrY : INTEGER 


00EC 




00ED 


(* We'll use pencil cursor 


0108 


RUN gfx2("gcset",202,2) 


0113 


RUN setupmouse 


311F 




312? 


(* Enable XOR logic, then 


0139 


(* let cursor follow mouse uncil button is pushed 


016A 




016B 


RUN gfx2("logic'\"xor") 


017E 




017F 


REPEAT 


0181 


RUN gecKISSmouse(Mouso) 


018B 


RUN gfx2("putgc" .Mouse .AcX, Mouse .AcY) 


01A8 


UNTIL Mouse. cbsaO0 


01B6 




01B7 


StartX: -Mouse. bdx 


01C2 


S tartY: -House .bdy 


01CD 


CurrX: -Mouse. AcX 


01D8 


CurrY: -Mouse. AcY 


01E3 


RUN gf x2 (" se tdptr".S tar tX.S tartY) 


01FC 




01FD 




01FE 


WHILE Mouse. cbsaO0 DO 


020D 


RUN gecKISSmouso (Mouse) 


0217 


IF CurrXOMouse.AcX OR CurrYOMouse .AcY THEN 


0232 


RUN gfx2("elltpse",ABS(CurrX-StartX) ,ABS(CurrY-StarcY)) 


0253 


CurrX:-Mouse,AcX 


025E 


CurrY: -Mouse. AcY 


0269 


RUN gfx2("ellipse",ABS(CurrX-StartX),ABS(CurrY-StartY)) 


028A 


ENDIF 


028C 


RUN gfx2("putgc". Mouse. AcX, Mouse. AcY) 


02A9 


ENDWHILE 


02AD 




02AE 


RUN gfx2("logic","off") 


02C1 


RUN gfx2 ("ellipse", ABS(Mouse.bdx-Mouse. AcX), ABS (Mouse. bdy-Mouse. AcY 




» 


02EE 


RUN gfx2("bell") 


02FA 


END 


02FC 




Listing 


10: KISSDrawBox 


0009 


(* Program to draw a box at location pointed 


002C 


(* to by high resolution mouse. 


004B 




004C 


(* Uses procedure KISSGetHo\_se 


006A 




006 B 


TYPE regiscers-cc,a,b,dp:BYTE; x.y.u: INTEGER 


0090 




0091 


TYPE rodenc-Vld.Act,ToTm:BYTE; XI: INTEGER: TTTo:BYTE; TSSC: 




INTEGER ; CBS A , CBSB , CC tA , CCtB , TTSA , TTSB , TLSA . TLSB : BYTE 




; X2, BDX, BDY: INTEGER; Stat , Res : BYTE; AcX, AcY, WRX, WRY: 




INTEGER 


0102 




0103 


DIM Mouse: rodent 


010C 


DIM StartX, StartY, CurrX, CurrY: INTEGER 


011F 
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JJ120 


(* Let's draw with a pencil cursor 


JJ142 




P143 


RON gfx2("gcsec".2p2.2) 


P156 




P157 


(* We roust make sure ve havo turned on the 


pui 


(* the high resolution mouse 


P19D 




?19E 


RUN Setuproouse 


P1A2 




P1A3 


(* Enable XOR logic 


(J1B7 




G1B8 


RUN gfx2("loglc","xor") 


pica 




P1CC 


REPEAT 


PICE 


RUN getKISSmouse (Mouse) 


P1D8 


RUN gfx2("putgc '.Mouse. AcX, Mouse. AcY) 


P1F5 


UNTIL Mouse. CBSAOP 


p203 




?2?4 


StartX: -Mouse. BDX 


P2?F 


StartY: -Mouse. BDY 


P21A 


CurrX : -Mouse . AcX 


P225 


CurrY: -Mouse. BDY 


P23P 


RUN gfx2("setdptr". Mouse. BDX. Mouse. BDY) 


P24F 




P25P 


WHILE Mouse. CBSAOP DO 


P25F 


RUN getKISSmousa(Mouse) 


P269 


IF CurrXoMouse.AcX OR CurrYC-Mouse. AcY THEN 


0284 


RUN gf x2 ( "box" , CurrX . CurrY) 


P299 


CurrX: -Mouse. AcX 


P2A4 


CurrY: "Mouse. AcY 


P2AF 


RUN gix2( "box", CurrX. CurrY) 


P2CA 


ENDIF 


P2C6 


RUN g£x2 ( "puege " , Mous e.AcX.Mouse.AcY) 


P2E3 


ENDWHILE 


?2E7 




P2E8 


RUN gfx2("logic","off") 


P2FB 


RUN gfx2("box", CurrX, CurrY) 


P31P 


RUN g£x2("bell") 


p31C 




P31D 


END 


P31F 




P32? 




Listing 


11: KISSHandleText 


W9 


(* Procedure to type text at position 


PP25 


<* selected with graphics cursor 


PP45 




PP46 


TYPE rodenc-Vld. Act, ToTm: BYTE; XL:INTEGER; TTTo:3YTE: TSStl 




INTEGER ; CBSA . CBSB . CC tA , CCtB , TTSA , TTS3 , TLSA , TLS3 : BYTE 




; X2,BDX,BDY:INTEGER; Stac,Res:BYTE; AcX.AcY.WRX.WRY: 




INTEGER 


PPB7 




PPB8 


DIM Mouse :rodenc 


ppci 


DIM ChorPosX.CharPosY: INTEGER 


ppoc 


DIM char: BYTE 


PPD3 




PPD4 


(* We'll use the veritical bar cursor 


0PFA 


(* chat represents a text insert point 


P12P 




P121 


RUN gfx2("gcsec",2p2,6) 


pl34 




P135 


REPEAT 


P137 


RUN getKISSmouse(Mouse) 


P141 


RUN gtx2 < "putgc " , House -AcX , Mouse .AcY) 


P15E 


UNTIL Mouse. CBSAOP 


P16C 




P16D 


(* Now we must translate the pixel position 


?198 


(* returned to a character position 


P1BB 




P1BC 


CharPosX: -House .AcX/8 


PICA 


CharPosY:-(2+Mouse.AcY)/8 


P1DB 




JI1DC 


(* Now we can position the cursor 


P1FD 




P1FE 


RUN gfx2("CurXY" , CharPosX, CharPosY) 


P215 




P216 


(* Make sure Echo is off 


P22F. 


SHELL "tmode -echo" 


P23D 


WHILE char-&13 DO \REM Carriage Return 


P25B 


GET np.char 


p264 


PUT cl.char 


P26D 


ENDWHILE 


P271 


SHELL "tmode echo" 


P27F 


END 


?281 




P282 




P283 





About 

Your 

Subscription 



Your copy of the rainbow is 
sent second class mail. You 
must notify us of a new address 
when you move. Notification 
should reach us no later than 
the 15th of the month prior to 
the month in which you change 
your address. Sorry, we cannot 
be responsible for sending 
another copy when you fail to 
notify us. 

Your mailing label also 
shows an account number and 
the subscription expiration 
date. Please indicate this ac- 
count number when renewing 
or corresponding with us. It 
will help us help you better and 
faster. 

For Canadian and othernon- 
U.S. subscribers, there may be 
a mailing address shown that is 
different from our editorial of- 
fice address. Do not send any 
correspondence to that mail- 
ing address. Send it to our edi- 
torial offices at Falsoft, Inc., 
The Falsoft Building, P.O. Box 
385, Prospect. KY 40059. This 
applies to everyone except 
those whose subscriptions are 
through ourdistributor in Aus- 
tralia. 
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Give it, and yourself, a break! Subscribe to rainbow on tape 
or rainbow ON DISK today! Every month, these convenient 
services bring as many as two dozen ready-to-run programs 
right to you. Using the current issue of the rainbow as 
documentation, all you have to do is load and run them. Just 
a one-year subscription gives you more than 230 new programs! 



RAINBOW ON TAPE 
For No-Fuss Fun 




^ 



© 




The typing time you save is time that you can spend enjoying your 

CoCo! Back issues of rainbow on tape are available beginning with 

the April 1982 issue, so there's no need to miss out on any of our great 

offerings. A single copy of rainbow on tape is $1 within the United 

States; U.S. $12 in all other countries. The annual subscription rate 

for rainbow on tape is $80 within the U.S.; U.S. $90 in Canada; 

and U.S. $105 for all other countries. U.S. currency only, please. 

In order to hold down costs, we do not bill.* 

RAINBOW ON DISK 
Offers OS-9 Programs 

n addition to all the programs offered on tape, part 

of one side of the disk is formatted for the OS-9 

operating system program. That means you can now 

get all the OS-9 programs from the magazine — 

programs that cannot be put on tape. And, with the 

introduction of the CoCo 3, OS-9 programs will 

become more and more prevalent. Back issues 

of rainbow on disk are available beginning with 

October 1986. Subscriptions to rainbow on DISK 

are $99 a year in the U.S. Canadian rate is U.S. 

$115. All other countries, U.S. $130. Singlecopy 

rate is $12 in the U.S.; U.S. $14 in Canada; and 

U.S. $16 in all other countries.* 

Look for our order envelope between pages 34 and 35 

rainbow on tape and rainbow on disk are not stand-alone products, Dut are intended as adjuncts and 
complements to the magazine. You will need the magazine for loading and operating instructions. 
' Kentucky residents add 5% sales tax. Please allow 6 to 8 weeks for first copy. 
To order by phone (credit card orders only), call (800) 847-0309, 8 a.m. to 5 p.m. 
All other inquiries call (502) 228-4492. 

Please nole: While group purchases ol RAINBOW ON TAPE and RAINBOW ON DISK are permitted (and multiple subscriplions are even discounted, il purchased in one order Irom a club), no license 
lo make copies is conveyed or implied. Ves, your group may even purchase a subscription to our disk/tape services, but such purchase in no way authorizes that any copies be made ol that original disk/tape. 
Specifically, this means that the original disk/tape itsell may be kept in a club library lor use by members. However, a group purchase does nof entitle club members, individually or as a group, to copy that disk/tape. 
Unauthorized copying ol any copyright product is strictly illegal. The copyright (right lo make copies) is in no way conveyed in the purchase transaction. 



rV»* 






v For your convenience, these products can also be ordered via the Delphi Information Network in our Shopping Service area 
v of THE rainbow's Color Computer SIG (Special Interest Group). 

J Programs from our past issues are also available for immediate download in the RAINBOW ON TAPE database area in THE 
RAINBOW'S Color Computer SIG on Delphi. There is a $3.50 per program surcharge. 



Listing 


12:KISSDrauiFill 






WW 


(* Procedure co fill an area or the 






mi 


(* screen with a patcern selected 






PP44 


(* with the high resolution mouse 






PP65 








pp66 


TYPE rodent-Vld,Act,ToTm:BYTE; XI : INTECER: TTTo:BYTE: TSSt: 
INTEGER; CBSA , CBSB . CCtA, CCtB , TTSA , TTSB . TLSA . TLSB : BYTE 
; X2.BDX.BDY: INTEGER; Scat , Res ; BYTE; AcX , AcY , URX , WRY : 
INTEGER 






mm 








?PD8 


DIM Mouse: rodent 






WEI 


DIM pointer. patternset: BOOLEAN 






pyEC 








PPED 


patternset: -FALSE 






PPF3 


polncer:-FALSE 






PPF9 








PpFA 


(* First, we must select the pattern ue want to fill with 






P133 


(* This means we must point to it 






P154 








P155 


WHILE NOT(pacternset) DO 






P15F 


REPEAT 






P161 


RUN gecKISSMouse (Mouse) 






P16B 


IF Mouse. AcX<40 THEN \REM pointer is true 






?18C 


pointer; -TRUE 






JT192 


RUN gfx2("gcsec", 202,1) \REM pointer icon 






P134 


ELSE 






P1B8 


poincer:-FALSE 






P1BE 


RUN gfx2("gcset" ,2p2,5) \REM Mark illegal position with icon 






P1F3 


ENDIF 






plF5 


RUN gf x2 ( "putgc " . Mouse . AcX . Mouse . AcY) 






P212 


UNTIL Mouse. CBSAO0 






P22P 








P221 


IF pointer THEN 






p22A 


IF Mouse. AcY>118 AND Mouse .AcY<13p THEN 






P243 


RUN gfx2("pactern" .204.8) \patternset :-TRUE \REM Large Dots 






P26B 


ELSE IF House. AcY>133 AND Mouse .AcY<142 THEN 






0287 


RUN gfx2("p3ttern",2p4,3) \pattemset:-TRUE \REM Horizontal 


lines 




P2B5 


ELSE 






P2B9 


IF Mouse. Ac Y>142 AND Mouse . AcY<154 THEN 






P2D2 


RUN gfx2("pattem",2p4,2) \patternset :-TRUE \REM Vertical 


lines 




P2FE 


ELSE 






P3P2 


IF Mouse. AcY>154 AND Mouse .AcY<166 THEN 






JJ31B 


RUN gfx2("pattern",204,6) \patternset;-TRUE \REM 
Right Slanted Lines 






P34C 


ELSE 






P35P 


IF Mouse. AcY>166 THEN 






P35F 


RUN gfx2C'pactern".2p4,5) \patcernsec:-TRUE \REH 
Left Slanted Lines 






P38F 


ELSE 






0393 


RUN gfx2("pattern" ,p,P) \REM make sure pattern is solid 




P3C5 


patternset: -FALSE 






P3C3 


ENDIF 






?3CD 


ENDIF 






?3CF 


ENDIF 






P3D1 


ENDIF 






P3D3 


ENDIF 






P3D5 


ENDIF 






P3D7 


ENDWHILE 






03DB 








P3DC 


C* We have Che pattern now 






P3F6 


(* Let's do actual fill 






040D 








P40E 


REPEAT 






041(1 


RUN gecKISSMouse (Mouse) 






P'.1A 








PA IB 


IF Mouse. AcX<40 OR Mouse. AcY<ip THEN 






0434 


RUN gfx2("goset" ,2p2.1) \REM pointer Is true 






P459 


ELSE 






P4SD 


RUN gfx2("goset".2p2,3) \REM Use Cross Hair on drawing screen 






0493 


ENDIF 






p495 








P496 


RUN gfx2("pucpc". Mouse. AcX. Mouse .AcY) 






P4B3 


UNTIL Mouse. CBSAOP AND Mouse. AcX>4p 






P4CB 








04CC 


RUN gfx2( "fill". Mouse, AcX. Mouse. AcY) 






04E8 


RUN gfx2("pattern",p.P) \REM We must always reset to solid pattern 






P525 


END 






.8527 








Listing 13: KISSDrauArc 






WW 


(* To be completed at a later date *) 






PP25 


END 


/» 





Him . . . 

80-C olumn EDTASM+ 

By now. most people know iliat Disk 
F.DTASM+ can be used in the 80- 
eolumn mode of the Color Computer 3. 
All you have to do is set up your screen 
before entering RUN"D0S". However, it 
is even easier to boot EDTASM+ in an 
80-column mode. Jusl load the DOS 
program from disk. You can then edit 
this BASIC program as you please. Jusl 
add a line somewhere near the begin- 
ning that sets up the 80-column width 
and whatever color selections you 
might want. When finished, just resave 
the program. Make sure you perform 
this procedure on a backup and not on 
your original EDTASM+ master. 

You will still not be able to see what 
the DOS program displays when you 
are in the 80-column mode so you will 
have to remember the keystrokes neces- 
sary to execute EDTASM+. An easy 
way to do this is to rename the ED- 
TASM+ program to something like E. 
After running DOS, wait for the drives 
to stop. Then press 2. which will cause 
DOS to execute a program. The next 
time the drives slop, just press E and 
ENTER. That's all there is to it. 

Mure Gagnon 
Cap-de-la- Madeleine, Quebec 



Him . . . 

Changing Color Sets 

Now that you've settled in with your 
CoCo 3, have you ever wondered how 
to change to the alternate artifact color 
set without having to hold down II and 
press reset? Here*s how you can do it. 

If you are at the OK prompt (i.e.. if 
the computer is not presently under 
control of a program), jusl enter POKE 
&HE033.32. You will immediately 
change color sets. To get back to the 
original set, enter POKE S.HE033,0. 

If you want to change sets from 
within a program, put POKE 
&HFF98,32 at the appropriate poinl in 
the program. To return, use POKE 
&HFF98,0. What you are essentially 
doing in both cases is inverting the burst 
phase of the video signal. 

One more hint: Many programs that 
prompt you for a color change will 
continue the moment you press II, 
thereby not allowing you to change 
color sets. The solution is to hold in the 
reset button, before pressing Fl, then 
press and hold down II. While holding 
HI, release the reset button. 

Will C. Power 
Cotopaxi, CO 
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Racksellers 

The retail stores listed below carry THE RAINBOW on a regular basis 
and may have other products of interest to Tandy Color Computer 
users. We suggest you patronize those in your area. 
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ALABAMA 




Birmingham 


Jefferson News Co 


Brewton 


McDowell Electronics 


Florence 


Anderson News Co. 


Greenville 


M & B Electronics 


Madison 


Madison Books 


Monlgomery 


Trade 'N' Books 


ALASKA 




Fairbanks 


Electronic World 


ARIZONA 




Phoenix 


TRI-TEK Computers 


Sierra vista 


Livingston's Books 


lempe 


Computer Library 


Tucson 


Anderson News Co. 


ARKANSAS 




Fayefteville 


Vaughn Electronics/Radio Shack 


Ft. Smith 


Hot Off the Press Newsstand 


Little Bock 


Anderson News Co. 


CALIFORNIA 




Citrus Heights 


Software Plus 


Grass Valley 


Advance Radio. Inc. 


Hall Moon Bay 


Strawflower Electronics 


Hollywood 


Levity Distributors 




Polygon Co. 


Sacramento 


Tower Magazine 


San Jose 


Computer Literacy Bookshops 


Santa Rosa 


Sawyer's News. Inc. 


Sunnyvale 


Computer Literacy 


DELAWARE 




Middletown 


Delmar Co. 


Mllford 


Mlllord News Stand 


Wilmington 


Normar, Inc.— The Smoke Shop 


FLORIDA 




Boca Raton 


Software, Software. Inc. 


Cocoa 


The Open Door 


Davie 


Software Plus More 


Ft. Lauderdale 


Mike's Electronics Distributor 


Jacksonville 


The Book Nook 




White's of Downtown Bookstore 


North Miami 




Beach 


Almar Bookstore 


Panama City 


Boyd-Ebert Corp 


Pensacola 


Anderson News Co. 


Pinellos Park 


Wolf's Newsstand 


Starke 


Record Junction, Inc. 




Radio Shack Dealer 


Tallahassee 


Anderson News Co. 


Titusville 


Computrac 


GEORGIA 




Bremen 


Bremen Eleclronics/Radio Shack 


Jesup 


Radio Shack 


Marietta 


Act One video 


Toccoa 


Martin Music Radio Shock 


IDAHO 




Moscow 


Johnson News Agency 


ILLINOIS 




Aurora 


Kroch's & Brentano's 


Belleville 


Software or Systems 


Champaign 


Book Market 


Chicago 


B. Dollon Booksellers 




N. Wabash St. 




West Jackson St. 




Bob's in Newtown 




Bob's News Emporium 




Bob's Rogers Park 




Book Market 




East Cedar 




North Cicero 




West Dlversey 




EB. Garcia & Associates 




Kroch's & Brenlono's 




South Wabash 




West Jackson 




516 N Michigan 




835 N. Michigan 




Parkway Drugs 




Parkwest Books 




Sandmeyei's Bookstore 




Univ. ol Chicago Bookstore 




Univ. of Illinois Bookstore 




Vtdeomat, Inc 


Chllllcolhe 


Book Emporium 


Danville 


Book Market 
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ILLINOIS (conl'd) 



Decatur 


Book Emporium 




K-Mart Plaza 




Northgole Mall 


East Mollne 


Book Emporium 


Evanston 


Chicago-Main News 


Geneseo 


B & J Supply 


Kewanee 


Book Emporium 


Lisle 


Book Nook 


Newton 


Bill's TV Radio Shack 


Oak Brook 


Kroch's & Brentano's 


Oak Park 


Kroch's & Brentano's 


Paris 


Book Emporium 


Peoria 


Book Emporium 




Sheridan village 




Weslloke Shopping Center 




Book Market 




Illinois News Service 


Schaumberg 


Kroch's & Brentano's 


Skokle 


Kroch's & Brentano's 


Springfield 


Book Emporium 




Sangomon Center North 




Town & Country Shopping Clr. 


Sunnylond 


Book Emporium 


West Franktort 


Paper Place 


Wheeling 


North Shore Distributors 


INDIANA 




Angola 


D & D Electronics 



Beme 

Columbus 

Garrett 

Greenwood 

Indianapolis 



Jasper 
Madison 
Martinsville 
Wabosh 

IOWA 

Davenport 
Oftumwa 

KANSAS 
Topeka 

Wellington 
Wichita 



KENTUCKY 

Hazard 

Hopkinsville 

Paducah 

LOUISIANA 

Monroe 

MAINE 

Bangor 
Brockton 
Caribou 
Sanford 

MASSACHUSETTS 

Brockton 

Cambridge 

Filchburg 

Ipswich 

Uftleton 

Lynn 

Swansea 

MICHIGAN 
Allen Park 
Durand 
Harrison 
Howell 
Lowell 
Muskegon 
Perry 

Royal Oak 
Sterling 

Heights 
Wyoming 

MINNESOIA 

Duiuth 

Minneapolis 

Willmar 



Radio Shack 

White Cottage Electronics 

Micro Computer Systems. Inc. 

Finn News Agency. Inc. 

The Computer Experience 

Bookland. Inc 

Delmar News 

Indiana News 

Elex Mart 

Arco Office Supplies 

Radio Shack 

Mining's Electronics 

Interstate Book Store 
Southside Drug 

Palmer News, Inc. 
Town Crier of Topeka. Inc. 
Dandy's/Radio Shack Dealer 
Amateur Radio Equipment Co. 
Lloyd's Radio 

Daniel Boone Gulf Mart 
Hobby Shop 
Radio Shock 



The Book Rack 

Magazines, Inc. 
Voyager Bookstore 
Radio Shack 
Radio Shack 

Voyager Bookstore 
Out Of Town News 
Comers Book Shop 
Ipswich News 
Computer Plus 
North Shore News Co. 
Newsbreak. Inc 

Book Nook. Inc, 

Robblns Electronics 

Harrison Radio Shack 

Howell Auto Parts 

Curt's Sound & Home Arcade Center 

The Eight Bit Comer 

Perry Computers 

Software City 

Sterling Book Center 
Gerry's Book Co, 

Corlson Books 
Read-More News 
The Photo Shop 



MISSOURI 

Farmington 
Jefferson City 

Kirksville 
Moberty 
St. Louis 



St. Robert 

MONTANA 
Butte 
Whitelish 



NEBRASKA 
Omaha Nelson News 

NEVADA 
Las Vegas 

NEW HAMPSHIRE 

West Lebanon 



Rays TV & Rodio Shack 
Cowley Distributing 
T&R Electronics 
Audio Hut 
Book Emporium 
Computer Xchange 
Front Page News 
Bolley's TV & Radio 

Plaza Book Store 

Consumer Electronics ol Whitelish 



NEW JERSEY 

Cedar Knolls 

Clinton 

Marmora 

Pennsvllle 

River Edge 

Rockaway 

NEW MEXICO 
Alamogordo 
Albuauerque 



NEW YORK 

Brockport 
Brooklyn 
Elmira Heights 
Fredonla 
Hudson Falls 
Johnson City 
New York 



N. White Plains 

Pawling 

Rochester 

Woodhaven 

NORTH CAROLINA 

Aberdeen 

Cary 
Charlotte 

Havtock 

Hickory 
Marion 

OHIO 

Blanchester 

Canton 

Chardon 

Cincinnati 

Columbiana 

Columbus 

Dayton 

Faljborn 

Kent 
Kenton 
Lakewood 
Lima 



Hurley Electronics 

Verham News Corp. 

Villoge Computer & Software 
Micro World II 
Outpost Radio Shack 
Dave's Elect, Radio Shack 
Software City 
Software Station 

New Horizons Computer Systems 
Desert Moon Distributors 
Front Page Newsstand 
Page One Newsstand 

Lift Bridge Book Shop. Inc. 

Cromiand. Inc. 

Southern Tier News Co.. Inc. 

On Line. Computer Access Center 

GA West & Co. 

Unicom Electronics 

Barnes & Noble— Sales Annex 

Coliseum Books 

Eastern Newsstand 

Grand Central Station, Track 37 

200 Park Ave., (Pan Am #1) 

55 Water Street 

World Trade Center #2 
First Stop News 
Idle Hours Bookstore 
International Smoke Shop 
Jonil Smoke 
PennBook 
Software City 
Slate News 
Usercom Systems. Inc 
Walden Books 
World Wide Media Services 
Software City 

Universal Computer Service 
Village Green 
World Wide News 
Spectrum Projects 

i 

King Electronics 
Radio Shack 

News Center in Cary village 
Newsstand lnt"l 
Fapers & Paperback 
Computer Plus 
C : Books & Comics 
Boomers Rhythm Center 



JR Computer Control 

Little Professor Book Center 

Thrasher Radio & TV 

Cinsoft 

Fidelity Sound & Electronics 

B5 Soltwore 

Huber Heights Book & Card 

Wilke News 

News- Readers 

Wilke's University Shoppe 

The News Shop 

T.W. Hogan & Associates 

Lakewood International News 

Brunner News Agency 

Edu-Caterers 






OHIO (cont'd) 




Mlamisburg 


Wiike News 


Mount Otab 


Mount Orab Radio Shack 


Rockv River 


Programs Unlimited 


Toledo 


Leo's Book 8c Wine Shop 


Woodstleld 


Day Appliance S TV/Radio Shack 




Dealer 


OKLAHOMA 




Oklahoma 




Cily 


Merit Micro Software 


Taklequah 


Thomas Sales. Inc. dba Radio Shack 


Tulsa 


Steve's Book Store 


OREGON 




Portland 


Fifth Ave. News 


PENNSYLVANIA 




Allentown 


Owl Services 


Allison Park 


Software City 


Altoona 


Newborn Enterprises 


Brookville 


Larry's Stereo Shoo 


Malvern 


Personal Software 


Philadelphia 


City Software Center 




Newsy 


Phoenixville 


Stevens Radio Shack 


Pittsburgh 


All-Pro Souveniers 


Reason! Hills 


Pitt Computer & Software 


Temple 


Software Comer 


Wind Gap 


Micro World 


York 


The Computer Center of York 


RHODE ISLAND 




Warwick 


Software Connection 


SOUTH CAROLINA 


Charleston His. 


Software Haus. Inc 


Gaffney 


Gaffney Book Store 


Greenville 


Palmetto News Co. 


Spartanburg 


Software City 


Union 


Hemlng's Electronics 


TENNESSEE 




Chattanooga 


Anderson News Co. 




Guild Books & Periodicals 


Dickson 


Highland Electronics 


Knoxviile 


Anderson News Co. 


Memphis 


Computer Center 




Software. Inc 


Smyrna 


Delker Electronics 


Union City 


Cox Electronics Radio Shack 


TEXAS 




Big Spring 


Poncho's News 


Brenham 


Moore's Electronics 


Elgin 


The Homing Pigeon 


VIRGINIA 




Gatton 


Electronics Marketing 


Norfolk 


l-O Computers 


WASHINGTON 




Seattle 


Adams News Co.. Inc 


Tacoma 


B & I Magazines 8c Books 




Nybbles'N Bytes 


WEST VIRGINIA 




Hunllngton 


Nick's News 


Logan 


Stan's Electronics S Radio Shack 


Madison 


Communications. LTD 


Parkersourg 


Valley News Service 


WISCONSIN 




Appleton 


Badger Periodicals 


Cudahy 


Cudahy News & Hobby 


Milwaukee 


Book Tree 




Booked Solid 




Booked Solid II 




Harvey Schwartz Bookshop 




Univ. of Wsconsin Bookshop 


Minocaua 


Island Technologies 


Racine 


Little Professor Book Center 


WYOMING 




Casper 


The Computer Store 


ARGENTINA 




Cordoba 


Information Telecommunlcaliones 



CANADA: 




ALBERTA 




Banff 


Banff Radio Shack 


Blairmoro 


L & K Sports & Music 


Bonnyvllle 


Paul Tetciet 


Brooks 


Double "D" A.S.C Radio Shack 


Calgary 


Billy's News 


Claresholm 


Radio Shack Associated Stores 


Draylon Valley 


Langard Electronics 


Edmonton 


CMD Micro 


Edson 


Radio Shock 


Falrvlew 


D.N.R. Furniture 6c TV 


Fox Creek 


Fox City Color 8c Sound 




AS.C. Radio Shack 


Ft. Saskatche- 




wan 


Ft. Mall Radio Shack. ASC 


Grande 




Cache 


The Stereo Hut 


Grande 




Centre 


The Book Nook 


Hlnton 


Jim Cooper 


Innlsfall 


L & S Stereo 


Leduc 


Radio Shack Associated Stores 


Lethbtldge 


Dotation 


Lloydmlnster 


Uoyd Radio Shack 


Okofoks 


Okotoks Radio Shack 


Peace River 


Radio Shack Associated Stores 




Tavener Software 


St. Paul 


Waller's Electronics 


Stettler 


Stettler Radio Shack 


Strathmore 


Wheatland Electronics 


Taber 


Pynewood Sight & Sound 


Westlock 


Westlock Stereo 


Wetaskiwln 


Radio Shack 


BRITISH COLUMBIA 


Buinaby 


Compullt 


Burns Lake 


VT. Video Works 


Campbell 




River 


TRS Electronics 


Chllliwack 


Charles Parker 


Coortenay 


Rick's Music & Stereo 


Dawson Creek 


Bell Radio & TV 


Golden 


Taks Home Furnishings 


Kelowna 


Telesoft Marketing 


Langley 


Langley Radio Shack 


N. Vancouver 


Microwest Distributors 


Nelson 


Oliver's Books 


Parksville 


Parksville TV 


Pentlclon 


DJ.'s 




Four Comer Grocery 


Sidney 


Sidney Electronics 


Smilhors 


Wall's Home Furniture 


Squamlsh 


Kotyk Electronics 


100 Mile 




House 


Tip Top Radio 8c TV 



MANITOBA 




Altona 


LA Wiebr Ltd. 


Lundar 


Goranson Elec 


Morden 


Central Sound 


The Pas 


Jodi's Sight Sc Sound 


Selkirk. 


G L Enns Elec. 


Virden 


Archer Enterprises 


Winnipeg 


J & J Electronics Ltd. 


NEW BRUNSWICK 




Moncton 


Jeffries Enterprises 


Sussex 


Dewitt Elec. 


NEWFOUNDLAND 


i 


Bofwood 


Seaport Elec. 


Carbonear 


Slade Realties 


NOVA SCOTIA 




Halifax 


Atlantic News 


ONTARIO 




Angus 


Micro Compute! Services 


Aurora 


Compu Vision 


Concord 


Ingram Software 


Excetet 


J. Macleane 8c Sons 


Hanover 


Modern Appliance Centre 


Huntsville 


Hunlsvllle Elec. 


Kenora 


Donny "B" 


Kingston 


T.M. Computers 


Llstowel 


Modem Appliance Centre 


South River 


Max TV 




Dennis TV 


QUEBEC 




LaSaile 


Messagerles de Presse Beniamin Enr. 


Pont. Rouge 


Boutique Bruno Laroche 


SASKATCHEWAN 




Asslnibola 


Telstar News 


Eslevan 


Kotyk Electronics 


Moose Jaw 


DScS Computet Place 


Nipiwan 


Cornerstone Sound 


Regina 


Regina CoCo Club 




Software Supermarket 


Saskatoon 


Everybody's Software Library 


Shellbrooke 


Gee Labetge Radio Shack 


Tisdale 


Paul's Service 


Unity 


Grant's House of Sound 


YUKON 




Wnitehorse 


H 8c O Holdings 


JAPAN 




Tokyo 


America Ado, Inc. 


PUERTO RICO 




San Juan 


Software City 



Also available at all B. Dalton Booksellers, 
and selected Coles Bookstores, 
Waldenbooks, Pickwick Books, Encore 
Books, Barnes & Noble, Little Professors, 
Tower Book & Records, Kroch's & 
Brentano's, and Community Newscenters. 



AUSTRALIA 

Blaxland Blaxland Computers 

Kingsford Paris Radio Electronics 
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Advertiser's Index 



We encourage you to patronize our advertisers — all of whom support the Tandy Color 
Computer. We will appreciate your mentioning the rainbow when you contact these firms. 



Alpha Products 21 

Boiling Spring 

Lakes Software 135 

Cer-Comp 137 

Cinsoft 175 

Clearbrook Software 

Group 117 

CNR Engineering 91 

CoCotronics 47 

Cognitec 45 

Colorware 23 

Computer Center 35 

Computer Island 133 

Computer Plus 3 

Computerware 65 

Computize 24, 25 

D.P. Johnson 177 

Dayton Associates of 

W. R. Hall, Inc 128 

Diecom IFC, IBC 

DISKMASTER, INC 85 

Disto 105 

Elegant Software 77 

Fazer Electronics 27 

Frank Hogg Laboratory 37, 183 

Gimmesoft 153 

Hard Drive Specialists 93 

Hawkes Research 

Services 161 

HJL 57 

Howard Medical 34, 194 

ICR Futuresoft 33 

J &M Systems 77, 109 

J & R Electronics 146 

Kelly Software 

Distributors 69 

Metric Industries 181 

Micro Works, The 171 

Microcom Software ...9,11,13,15 
Microtech Consultants 

Inc 61 

MicroWorld 125 

Other Guys Software, The 73 



Owl-Ware 87,88,89 

Paparis Enterprises 39 

Performance Peripherals 119 

Perry Computers 16 

Preble's Programs, Dr BC 

Prickly-Pear Software 99 

PXE Computing 7 

Rainbow Bookshelf 180 

Rainbow Gift Subscription 52 

Rainbow on Tape and Disk .... 188 

RAINBOWfest 122, 123 

Robotic Microsystems 155 

RTR Development Systems 165 

Saint John's Gallery 69 

Sardis Technologies 173 

SD Enterprises 85 

SEESOF 27 

Seibyte Software 131 



Call: 

Belinda Kirby 
Advertising Representative 

The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 
(502) 228-4497 



Call: 

Jack Garland 

Garland Associates. Inc. 
10 Industrial Park Road 
Hingham, MA 02043 
(617) 749-5852 



□ Call: 

Kim Vincent 

Advertising Representative 

The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect. KY 40059 
(502) 228-4492 



Software House, The 95 

SpectroSystems 149 

Spectrum Projects Inc 17, 67 

Speech Systems 40, 41, 42, 43 

Sugar Software 193 

Sundog Systems 63 

Sunrise Software 174 

T&DSoftware 112,113,147 

Tandy/Radio Shack 49, 51 

Tepco 169 

TMM/Hemphill Electronics ....179 

Tom Mix Software 1 59 

True Data Products 54, 55 

Vidicom Corporation 75 

Wasatchware 1 75 

William Brigance 139 

Woodstown Electronics 71 

Zebra Systems 1 57 
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JNEW EF OS9 PATCHER "CD - (c) This is a useful utility lor your 0S9 Level 1 or 
II system. It allows you to modify the contents of a file or memory module using easy to 
understand commands. Data may be displayed and entered in either decimal, hexadecimal, 
octal or ascii characters. Module CRCs calculated and patched automatically. Patch 
command files may be used as input to the Patcher and patch command files can be 
generated from an original and already patched file Disk only: OS9 Level I or II $19.05 



CALLIGRAPHER 

CoCo Calligrapher - (Hybrid BASIC/ML) 
Turn your CoCo and dot-matrix printer 
into a calligraphcr's quill. Make beautiful 
invitations, flyers, certificates, labels and 
more. Includes 3 fonts: Gay Nineties, Old 
English and Cartoon. The letters are % 
inch high and variably spaced. Works with 
many printers including Epson, Gemini, 
Radio Shack, Okidata 92A, Banana and 
Prowriter. Additional fonts are available 
(see below). Tape/Disk; $24.05. 

OS0 Calligrapher - (q Although a 
different program from the CoCo Calligra- 
pher, the OS9 Calligrapher prints all the 
same fonts. It reads a standard text file 
which contains text and formatting direc- 
tives. You may specify the font to use, 
change fonts at any time, centering left, 
right or full justification, line fill, margin, 
line width, page size, page break and in- 
dentation. Similar to troff on UNIXtm sys- 
tems. Includes Gay Nineties, Old English 
and Cartoon fonts. Additional fonts are 
available (see below). Disk only; OS9 Level 
I or II; $24.95. 

Calligrapher Fonts - Requires Calligra- 
pher above. Each set on tape or disk; 
specify RSDOS or OS9 version; $14.05 
each. Set #1 - (9 fonts) Reduced, re- 
versed and reduced-reversed versions of 
Gav Nineties, Old English and Cartoon; 
Set #2 - (8 fonts) Old Style and Broad- 
way; Set #3 - (8 fonts) Antique and Busi- 
ness; Set #4 - (8 fonts) Wild West and 
Checkers; Set #5 - (10 fonts) Stars, He- 
brew and Victorian; Set #0 - (8 fonts) 
Block and Computer; 

Economy Font Packages on disk; speci- 
fy RSDOS or OS9; 29.05: Font Pack- 
age #1 - Above font sets 1, 2 and 3 (25 
fonts) on one disk. Font Package #2 - 
Above font sets 4, 5 and 6 (26 fonts) on 
one disk. Both Packages #1 and #2 (51 
fonts) on one disk; 40.05. -a NEW 



NEW O" Calligrapher Combo 
Package - Everything!; specify RSDOS or 
OSS; Includes the Calligrapher and both 
Font Packages pn one disk; $09,95, 



UTILITIES 

PIratector - (ioo% ML) Utility to allow 
your own disk-based BASIC or ML pro- 
grams to display a graphics title screen 
and then self-start after loading. Adds 
copy protection to your programs but still 
allows users to create non-ezecutabtc back- 
ups! Includes Semigraf. Disk only; CoCo 

1, 2, 3 (except Semigraf); $30.95. 

Super Screen Machine - (ico?S ML) Put 
your CoCo into high resolution mode for 
your own BASIC or ML programs. Smooth 
scroll, key click, lower case with colored 
characters. Tape/Disk; 32K CB; CoCo 1, 

2, 3 (except 64 K mode); $19.05. 



Color Disk Manager - (ico% ML) Disk 
utility with these features: Disk repair, 
selective track initialization, verify sectors, 
backups, tape to disk transfer, ROM Pak 
execution from disk, much more! 
Tape/Disk; CoCo 1, 2, 3 (except for 64K 
mode); $24.05. 

Color Tape Manager - (ico?6 ML) Tape 
utility with these features: display start, 
end and exec address of ML programs, 
convert ML programs into BASIC DATA 
statements, append ML to BASIC, load, 
display/modify and save tape (lie, handles 
missing EOF and filename blocks, much 
more! Tape/Disk; 16K ECB; CoCo 1, 2, 3 
(except for 64K mode); $19.95. 

INFORMATION MGT. 

TIMS (The Information Management 
System) - (Hybrid basic/ml) Tape or disk, 
fast and simple general data base program. 
Create files of records that can be quickly 
sorted, searched, deleted and updated. 
Powerful printer formatting. Up to 8 user 
fields, sort on up to 3 fields. Tape/Disk; 
$19.95 (see combo pkg below). 

TIMS Mall - (Hybrid basic/ml) Tape or 
Disk based mailing list management pro- 
gram. Files arc compatible with TIMS. 
Fast and simple to use. Supports labels 1, 
2 or 3 across, 2V4 to 4 inches wide. 
Tape/Disk; $19.95 (see combo pkg below). 

TIMS Utility - (Hybrid BASIC/ML) Utility 
companion for TIMS and TIMS Mail to al- 
low multi-term search (AND and OR log- 
ic), global change and delete, split large 
files and more! Tape/Disk; $14.95 (see 
combo pkg below). 

TIMS Combo Package - All three or the 
above programs: TIMS, TIMS Mail and 
TIMS Utility on one disk - $34.95. 

SPORTS STATISTICS 

Statistics programs for the coach, team 
manager or avid fan who wants to keep 
accurate team and opponent records. 
Printer output supported. The following 
are available: Baseball, Basketball, Foot- 
ball and Soccer. Disk only; $10.05 each. 

EDUCATIONAL 



NEW O" Trig Attack - (ioo% ml) In 
this educational arcade game, enemy 
trigs travel along math curves. Players 
learn important mathematical concepts 
as they play. Trig Attack is filled with 
sound effects, colorful graphics and 
features 11 challenging levels. First class 
mathematical entertainment for ages 
and up. Excellent manual includes an in- 
troduction to trigonometry. Tape 16K 
CB/Disk 32K ECB; CoCo 1, 2, 3; 
$10.05. 



Silly Syntax - (Hybrid basic/ml) Ages 5 and 
up. Story creation game; output to screen 
or printer; includes 2 stories or create your 
own. Tape/Disk; $19.05 or disk with 62 
stories for $20.05. Sets or 10 stories on 
tape/disk for $4.05: Fairy Tales, Current 
Events, X-Rated, Sing-Along, Adventure, 
Potpourri. 

Bible Stories Adventure - (irybrid 
basic/ML) Ages 4 & up. A graphics adven- 
ture game for young children Sr. their fami- 
lies. Old testament. Tape/Disk; $10.05. 

The Presidents or the USA - (100% ml) 
Ages 10 and up. Two trivia games, user 
modifiable, printer output supported. 
Tape/Disk; 16K ECB; $10.05. 

The Great USA - Ages 9 and up. Trivia 
game of the 50 states. Capitals, nick- 
names, abbreviations, flowers, trees and 
birds. Tape/Disk; 16K ECB; $10.05. 

Galactic Hangman - Ages 7 and up. Ex- 
citing new twist to the popular word 
game. Outstanding graphics; 700 word vo- 
cabulary. Tape/Disk; 16K ECB; $10.05. 

PreReader - (Irybrid BASIC/ML) Ages 3-5 
(level I); Ages 5-7 (level 2); Great graphics 
and music. Level 1: match colors, shapes, 
letters and numbers; Level 2: match letters 
and consonant blends with their sounds. 
Tape/Disk; Joystick; $19.05. 

Statgrnf - High school and college level; 
Linear regression analysis program com- 
bined with a plotting and line graphing 
system. Up to 250 x/y pairs; data 
transformation; residuals; regression line; 
print graph with screen print program 
(not supplied); Tape/Disk; $10.05. 

SPECIAL INTEREST 
Rental Property Income and Expense 
Management Package - Maintain your 
rental property income and expense 
records. Print output supported. 28 ex- 
pense categories. This program may be tax 
deductible. Disk only; $20.05. 

Radio Systems Design Calculations - 
Performs 14 different calculations common- 
ly used in design or evaluation of land 
mobile radio systems, satellite TV, etc. 
Tape/Disk; $19.95. 

CoCo Knitter - Easy to use program to 
display or print instructions to knit a 
sweater: Cardigan or Pullover; Round or 
V-neck; Raglan or Set-in Sleeve; 3 weights 
or yarn; 8 sizes from baby to man. 
Tape/Disk; $10.05. 

Flying Tigers - (10CK ML) Fast Defenders 
style arcade game. 5 levels of difficulty; 
Outstanding graphics and sound effects. 
Tape/Disk; Joystick; $10.05. 



A complete catalog of other sweet 
Sugar Software products is available. 



RAINBOW 

Ct*"'«C*"OH 
KM 




"TRS-80 is a trademark of Tandy Corp. 



SUGAR SOFTWARE 

P.O. Box 7446 

Hollywood, Florida 33081 

(305)981-1241 



Alt programs run on the CoCo 1, S and S, SSK 
Extended Bane, unlets otherwise noted. Add 
Si. 50 per tape or disk for postage and handling. 
Florida residents add b% sales tax. COD orders 
add $4. Dealer inquiries invited. Orders generally 
shipped in 2-I--I8 hours. No refunds or exchanges 
without prior authorization. 




Save $200 on Magnavox Monitors 
Magnavox 8CM643 RGB Analog only $385!! 





MONITORS 



1230 A 12" 

This 12" green screen high resolulion 
monitor oilers 80 column capability. Zenith 
quality one) a 90-day warranty valid al any 
olZontlh'5 1200 locaiions. 



$125 



122A Zenith 12" Amber Screen offers 
the same 640 dols x 200 lines reso- 
lution at 15MHz and a 90-day war- 
ranty valid at 1200 locations. 



$88 



( s 7 shipping) 

MA3NAVOX 
8 CM 515 h a S 

analog RGB tor CoCo 3, TTL RGB 
for Tandy 1000 or IBM PC's, and 
composite color for CoCo 2 and 3. 
Built-in speaker. 14" screen with 
640 dot x 240 line resolution. Plus 
2 years parts and labor warranty. 

reg. list S499 

SAVE 
$200 



Retail M99 
Our price 

(S7 shipping) BRAND NEW 

All monitors require an amplifier cir- 
cuit to drive the monitor and are 
mounted inside the color computer. 
They attach with spring connectors 
with two wires extending out of the 
computer, one for audio and one for 
video. CoCo 3 does not require an 
amplifier circuit. 

VA-1 for monochrome monitors only, 
fits all color computers 



(»2 shipping) 

VC-4 for monochrome or color, lits all 
color computers 
(S2 shipping) 



$24. 45 

ime or color, fits all 

$39. 45 




$298 

+ S14 Shipping 

CC-3 Magnavox RGB cable. 

only *l9i90 with 
Magnavox Monitor order. 
S29.95 w/o monitor. 



MASNAVOX 

CM 8505 has analog RGB 
and TTL RGB and composite 
color input. Built in speaker. 13" 
screen with 390 dots x 240 reso- 
lution in RGB mode. Plus 1 year 
parts & labor warranty. 

reg. list '299 

SAVE 
*79 



$220 

+ S14 Shipping 




LUllVE. \J "T" « Howards Drive gives you a 
DD-3 MPI drive, a CA-1 cable and a J&M DC-4 Disk Controller 
for onlv Double sided double density 360H 

$178 45 




( s 5 shipping) 
Add S34 for a Disto DC-3. 



*> 



^■^ 






GUARANTEE 

Howard Medical's 30-day guarantee is meant to eliminate the uncertalnty- 
of dealing with a company through the mail. Once you receive our hard- 
ware, try it out; test It for compatibility. If you're not happy with it for any 
reason, return it in 30 days and we'll give you your money back (less 
shipping.) 

Shipping charges are for 48 states. 
APO, Canada and Puerto Rico orders slightly higher. 



DISK CONTROLLER 



i£ 



m « -- 



Includes controller and C-DOS 4.0 
DISTO 



ROM Chip. 

'98 DC-3 /\ 
S2 shipping on all DISTO products 

AC N BOARDS 



DC-38 includes 80 column capacity, 
parallel printer, real time clock, and all 
software $138 

DC-256 256K RAM Board includes 
software to access all RAM $QQ 

DC512 512K RAM Board with 
software §125 

DC-3C Clock Calendar and parallel 
printer port Q $40 



DC-3P Mini Eprom programmer in 
eludes all software to program 2764 
or 27128 chips Q $55 

2764 8K Eprom 28 pin 

$8so each 

27128 16K Eprom 28 pin 

$8 50 each 

C-DOS 3 28 pin Eprom makes Disto 
controller compatible with CoCo 3 

$20 



SOFTWARE SPECIALS 



Payrol/BAS™ , 

* (»2 shipping) 

• Nonprotected basic modifiable 

• Tax tables built in for automatic 
federal calculation 

• Custom code tor every slate ( 1 25 option) 

• 4 pay periods 

• 7 deductions 

• Prints checks 

• 100 employees 

• 30 ledger numbers for checks 
other than payroll 

• Check register Includes monthly 
or weekly federal deposit amount 

• Enter, update, delete employees, 
company and check Information 

• Print payroll and nonpayroll 
checks 



Payrol/BAS™ 
30 Day Trial 

$29.95 



VIP LIBRARY 

Softlaw's integrated package in- 
cludes VIP writer terminal, data 
base, call and disk zap which can 
fix a diskette that is giving I/O 
errors 



$125 



(«2 shipping) 



MEMORY 

Memory for CoCo 3 PC memory 
board plugs Into the spare slots In- 
side the computer and can be 
populated with 256K ram chips. 
Completely solderless with com- 
plete easy to install instructions. 

$49.50 

PC Memory board with 512K «99 

Software spooler and RAM disk 
for lightning quick response or no 
disk swapping drive backup for 1 
drive system and printer spooler to 
free computer during long listings. 

$19.45 

(S2 shipping on Memory 
products) 



64-2 for CoCo 2. Kit requires one 
solder point, no trace cuts. 

('2 shipping) $24.45 

64-E1 for E Boards with complete 
Instructions. Remove old chips 
and replace with preassembled 
package— no soldering or trace 
cuts. 

(«- shipping) 28.45 

64-F1 for F Boards. No soldering 
needed. Capacitor leads must be 
cut. 

(»2 shipping) $24.45 

64-22 Two chip set for 26-3134A 
and B, 26-3136A and B. Koren Col- 
or Computers require 1 solder 
point. 

("•2 shipping) 



28.45 



Howard Medical Computers 1690 N. Elston Chicago, IL 60622 




ORDERS 



(800) 443-1444 



(312) 278-1440 
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SEE fflONT COVEH 

FOB OTHEfl DIECOM GAMES 







DR. PREBLE'S 
PROGRAMS 



Introducing PYRAMIX 

for your OoCor Computer 3 ! 



Product of 
Color Venture 



(dated with mystery nntl 



The Pyramid hoo long been 
endless arendo fun. 

ITRAKIX Is b 1001 machine language game written exclusively to take od 
CoCo 3. The colors ore brilliant, the graphics sharp, the action hot. 



, PYHAHU, for 



: CoCo 3, Is a 



ntage of all the power In your 128K 



HI i •1SEBS 

SCORI : hih:i",b 



Tho object of 
indicated color, 



PYRAHXX looks deviously simple. Just change the tops of the blocks In the pyramid to the 
But the accomplishment can be elusive! 



LEVEL l I 
ROUND l * 



#* 



Falling bouldera, the relentless pursuit of the Snnke, the slow moving "death nquare" and precipitous folio 
challenge you from oil sides. Then there's that little sneak with sunglasses, who undoes your hard-enrncd 
color changes If you don't catch hlra. 

It's all quite maddening! As you reach more challenging levels, you'll find that you need to hop on the 
squares not once but twice In order to change their color. Or, worse yet, hopping on a nqunro you already 
visited alght undo the work you've Just done. 



There are elevator discs. Hop on one and It will take you to the top, 
ir the edge! If you catch a Time-Stopper Orb, tlae will freeze, allowing 



But you do have eoiw help in 1TKAHIX. 
possibly luring the greedy Snake ov 
uninterrupted work for while. 

PYRAHIX features the finest in animation, graphics, sound effects and gome play available today. It has all 
the extras you want, too, such as a pause option, RGB and CMP modes, keyboard or Joystick play, help screen, 
multiple skill level, and the ability to backup your disk. 



<PAIISIHC> 



Beat of nil lit the low price! Available today, for only $24.93 < 




Dr. Preble's 
Prescriptions... 



BASIC FREEDOM I No one want.) to be chained down. And 

.■■■t , ,' ymi '■]■'• In BASIC programs, you Iinve heen 
subject to Involuntary servitude! The culprit? 
BASICs Halted EDIT command. ^^ 

Demand Your BASIC FREEDOM! Developed by ColorVenture, this software gives you a full screen editor 
for typing In and editing BASIC programs! Hove the cursor anywhere on the screen. Innert, delete or 
add text. It's the same concept as in a word processor, except you never have to leave BASIC! BASIC 
FREEDOM la an invisible machine language program which you can turn on nnd off at will. Evon 
pressing RESET will not hurt your BASIC FHEEDDOM! Simple, yet powerful with an easy to rood manual. 
Many extra "nice touches" Included, like KEV REPEAT and LOWERCASE INTERPRETER which lets you type 
BASIC commands in upper ir lower case for case of programing. Translation to uppercase is automatic 
for commands. Text in quotes is not affected. f or CoCo , ^ D[ j| 



SPECIAL COCO 3 VERSION lets you 
available for tho CoCo 1 and 2. 



i'ork in 32, 40, or 80 column display modes. 
Available on disk for $29.95 + s/h. 



A separate version is 



MENTAL FREEDOM by Dr. Preble) IMAGINE! Some day, a computer so advanced that It responds to your 
very thoughts and emotions. Imagine, some day, thought-controlled graphlcBi levitatlon and 
materialization! PLUG IN TOUR HIND and UNHOOK 10UR JOTSTTCtS— that day Iti now! The Radio Shack 
Color Computer has raaay advanced capabilities, just waiting to be tappod. Dr. Preble's Programs 
combines the advanced technology of the CoCo with the amazing Radio Shack Biofeedback Monitor to 
bring you "Mental Freedom." f Qr r D r D g or 5 

THOUarr-COHTHOUJa) VIDEO CHALLENGE? Unl ike nny video game you have ever ployed, our Thoughtwore 
tests your ability to handle stress, to remain calm under* adveruc clrcumntanceo. LIGHTNING FAST 
refloxes will do you no good here, unless you first tame the fickle dragon of your mind. Are you the 
sccretely nervous type? Many people enn keep a "Poker Face" even when they nro worried ao that 
othors may not notice; but can you really stop the worry itself? Find out with Mental Freedom I 

AND IT TA1JCSI Did you know that the CoCo can produce Incredibly realistic digital speech without a 
special speech 'syntheslitor? The voice quality Is sa good, it sounds humonl Honest. Best of all, no 
extra hardware Is needed for speech, just booc clover programming by Dr. Preble. 

MENTAL FREEDOM - Next time your friends ask what your computer can do, show 
them Dr Preble's Thought war el Requires Radio Shack's Biofeedback Honitor 
Catalogue J63-675. Mental Freedom - TAPE or DISH 529.95 • n/h 



CoCoBraille 



Emboss Grade 1 or Grade 2 
Braille using your CoCo I, 2 
or 3 and n Brother Daisy Wheel 
printer I Fast Print to 

Braille conversion algorithm 
converts word processor files, 
program listings and data 
files Into touch readable 
Braille. For use by the blind 
or the sighted. No knowledge 
of tho Braille code la 
necessary. Just send print to 
the program and out comes 
Braillel Note: The complex 
Grade 2 conversion Is very 
good and though not always 
perfect, quite readable. 

Requires 64E or fcoro. Brother 
HR series printer or the IF-50 
interface series required. 
Low Cost! Similar software 
costs 3 times as ouch. Only 
$95. 



VDOS, the UnDISK: Save multiple programs In memory. Or save multiple graphic pictures in memory. Works with 
or without a disk. Let's you SAVE. LOAD and KILL stored programs or graphics. DIRECTORY function lists 
fllen gives thu start, end nnd execution addresses of machine language programs and nunhor of free bytes 
remaining. Own a RAH disk without buying a disk drive! Requires 64K CoCo 1 or 2. Available on tape or disk 
for $24.95 * shipping/handling. 




tUSIt: FREEDOM 
I tlcnini freedom 



t!995 
$1995 | 



n dingle tape file for easy reloading A muat for VDOS 
the UnDISE: Paper printout for UnDISK Directory. On tope. $9.95 + shipping/handling. 



VDUHP, for the UnDlSI: Backup all your UnDISK fll 
users! On v*pe for $14.95 * shipping/handling. 



mk wsmssf 
1 a 2 a II © if 

Dress up uour Disk Directory 

until colorful, messooes and 
borders Creole useful help 
rnessiiqes Add tJiol pro- 
fessional loucli to uour crc 
a turns! Only $995 



Check, Money Order, MasterCard, VISA i 
countries, add $5.00. 



COD accepted. 




Shipping to USA or Cnnndn add $2.50. to other 

For CoCo 1 or 2 

t e. 
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0rtlei From 
Dr Preble's Programs 

6540 Outer loop 

LouvstoOe- KJJ 40228 

(502) 966-8281 

PhOM 0rtf*rj iocept»d 
ion-, ¥*«., f ri . jnfl (S»t *m 



